Вводится последовательность из n произвольных чисел. Определить, сколько раз последовательность меняет знак.

program zz1;

var a, b, n, i, m:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры число

read (n);

read (b); / / вводим с клавиатуры первое число последовательности

for i:=1 to n-1 do

begin

read (a); / / / / вводим с клавиатуры очередное число последовательности

if a * b < 0 then m: = m + 1; / / проверяем, если произведение очередного и предыдущего чисел отрицательно, это означает, что последовательность поменяла знак и считаем

b:=a;

end;

write (' последовательность меняет знак = ', m, ' раз '); / /выводим ответ

end.