Паскаль

Задан целочисленный массив A[n]. Определить, сколько раз меняется знак в данной последовательности чисел, запомнить номера позиций, в которых происходит смена знака.

Program chik;

var a, b:array[1 ... 10000]of integer;

n, i, j, k:integer;

begin

read (N) ;

for i:=1 to n do

read (a[i]) ;

j:=1;

b[j]:=1;

if (a[1]>=0) then k:=1 else k:=0;

for i:=2 to n do

begin

if ((a[i]>=0) and (k=0)) or ((a[i]<0) and (k=1)) then begin

k: = (k+1) mod 2;

j:=j+1;

b[j]:=i;

end;

end;

for i:=1 to j do

write (b[i],' ') ;

end.