Дан массив целых чисел a1,.....aN выяснить каких элементов в массиве больше положительных или отрuцательных решение Pascal.

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

program PositiveNegativeElements;

var
a: array [1..10] of integer;
i, positiveCount, negativeCount: integer;

begin
positiveCount := 0;
negativeCount := 0;

// Заполнение массива случайными числами
randomize;
for i := 1 to 10 do
begin
a[i] := random(201) - 100; // генерация чисел от -100 до 100
writeln(a[i]);

end;

if positiveCount > negativeCount then
writeln('В массиве больше положительных элементов')
else if positiveCount < negativeCount then
writeln('В массиве больше отрицательных элементов')
else
writeln('Количество положительных и отрицательных элементов равное');
end.