В произвольно заданном массиве определить число отрицательных, нулевых и положительных элементов.

Как привести данную программу в действие?

она выводит только число n а не распределяет их. то есть в ответе всегда 0 100 0, при n=100

const

n = 100;

var a:array[1 ... n] of integer;

k1, k2, i: integer;

Begin

For i:=1 to n do

begin

if (a[i]<0) then k1:=k1+1;

if (a[i]>0) then k2:=k2+1;

end;

writeln (k1, n-k1-k2, k2) ;

end.

Const

n = 100;

var a:array[1 ... n] of integer;

k1, k2, i: integer;

Begin

For i:=1 to n do

a[i]:=Random (100) - 50;

writeln ('Исходный массив: ') ;

For i:=1 to n do write (a[i], ' ') ;

writeln; {переход на новую строку}

k1:=0; {счётчик для отрицательных элементов}

k2:=0; {счётчик для положительных элементов}

For i:=1 to n do

begin

if (a[i]<0) then k1:=k1+1;

if (a[i]>0) then k2:=k2+1;

end;

writeln (k1,' ', n-k1-k2,' ', k2) ;

end.