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

//PascalABC.Net 3.2beginvar a: array of integer;setLength (a, readinteger('Введите размерность массива: '));var count:=0;for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;write ('Кол-во раз: ', count);end.

Program n1;type z = array of integer;var a: z;i,n,k: longint;beginwriteln('введите кол-во элементов в массиве: ');readln(n);setlength(a,n);writeln('введите массив:');for i:=0 to n-1 do readln(a[i]);k:=0;for i:=1 to n-1 doif a[i]*a[i-1]<0 then k:=k+1;writeln('количество ',k);end.