Паскаль! !
с циклом while (без массива! )

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

Program test;

var a,b,count:integer;

   str : string;

begin

 writeln('Для остановки введите СТОП');

 while true do

 begin

   writeln('Введите число');

   readln(str);

   if (str = 'СТОП') then break;

   a := StrToInt(str);

   if ((a>0) and (b<0)) or ((a<0) and (b>0)) then count := count + 1;;

   b := a;

 end;

 writeln('В последовательности знак был поменян ' + count + ' раз.');

end.