В массиве ненулевых целых чисел определить сколько раз элементы массива при просмотре от его начала меняют знак. Например, в массиве 10, - 4, 12, 56, - 4, - 89 знак меняется 3 раза. Реализовать ввод размерности и возможность инициализации элементов массива.

Program n1;

type z = array of integer;

var a: z;

i, n, k: longint;

begin

writeln ('введите кол-во элементов в массиве: ') ;

readln (n) ;

setlength (a, n) ;

writeln ('введите массив:') ;

for i:=0 to n-1 do readln (a[i]) ;

k:=0;

for i:=1 to n-1 do

if a[i]*a[i-1]<0 then k:=k+1;

writeln ('количество ', k) ;

end.