program raf105;

var

 a,i,n,c: integer;

 x,x2: boolean;

begin

 write('Введите количество чисел: ');

 readln(n);

 writeln('Вводите ',n,' чисел по очереди');

 readln(a);

 if a >= 0

   then x2:= True

   else x2:= False;

 for i:=2 to n do

 begin

   readln(a);

   if a >= 0

     then x:= True

     else x:= False;

   if x <> x2

     then c:= c+1;

   x2:= x;

 end;

 writeln('Количество изменений знака: ',c);

end.

PascalABC 3.4.2