Вводится последовательность целых ненулевых чисел, 0 - конец последовательности....

Question

Вводится последовательность целых ненулевых чисел, 0 - конец последовательности. Определить, сколько раз последовательность поменяет знак. Ограничения! Нельзя использовать условный оператор (If) и оператор выбора (Case). Интерфейс программы должен выглядеть следующим образом: Введите последовательность целых чисел через пробел. Последним введите число нуль. -> -1 -2 3 6 -5 -7 8 9 0 Последовательность меняет знак 3 раз(а).

Answer 1

var

 x1, x2, count: integer;

begin

 Writeln('Введите последовательность целых чисел через пробел,');

 Writeln('последним введите число нуль:');

 Read(x1);

 while x1 <> 0 do

 begin

   Read(x2);

   while x1 * x2 < 0 do

   begin

     inc(count);

     break

   end;

   x1 := x2;

 end;

 Write('последовательность меняет знак ',count, ' раз');

 Readln;

end.