Составить программу паскаль: подсчитать количество положительных и количество отрицательных элементов массива

Предыдущий
вопрос Следующий
вопрос

program CountPositiveNegativeElements;

const
N = 10;

var
arr: array[1..N] of integer;
positiveCount, negativeCount, i: integer;

begin
positiveCount := 0;
negativeCount := 0;

// заполнение массива случайными числами
Randomize;
for i := 1 to N do
begin
arr[i] := Random(21) - 10; // генерация чисел от -10 до 10
writeln('Элемент ', i, ': ', arr[i]);

end;

writeln('Количество положительных элементов: ', positiveCount);
writeln('Количество отрицательных элементов: ', negativeCount);

end.