Задан случайно массив из 20 целых чисел в интервале от - 100 до 100. Подсчитать количество положительных, отрицательных и нулевых элементов

Begin

for i:=1 to 20 then begin

a[i]:=random (100) - 100;

if (a[i]<0) then inc (k) ;

if (a[i]=0) then inc (b) ;

if (a[i]>0) then inc (c) ;

end;

writeln ("Кол-во положительных чисел: ", c) ;

writeln ("Количество отрицательных чисел:", k) ;

writeln ("Количество нулевых:", b) ;