Напишите в виде программы для паскаля. В массиве А (5) посчитать количество положительных и отрицательных элементов

program zz1;

const n1=15; / / задаем количество чисел в массиве

var z:array[1 ... n1] of integer;

i, s1, k1:integer;

begin

for i:=1 to n1 do / / получаем n случайных чисел и записываем их в массив

z[i]:=random (21) - 10;

for i:=1 to n1 do / / организуем цикл, в котором переберем все 'элементы массива

begin

if z[i] > 0 then k1:=k1 + 1;

if z[i] < 0 then s1:=s1 + 1;

end;

writeln (' количество элементов массива отрицательных = ', s1); / / выводим ответ

writeln (' количество элементов массива положительных = ', k1);

end.