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

var

arr : array [1 ... 100] of integer; / / объявляем массив.

x, y, i : integer; / / объявляем переменные целочисленного типа.

Begin

for i: = 1 to 100 do / / начало цикла.

begin

arr[i] : = random (-20,20); / / заполняем элемент массива с индексом i случайным числом.

if (arr[i] > 0) then x: = x + 1; / / считаем положительные элементы.

if (arr[i] < 0) then y: = y + 1; / / считаем отрицательные элементы.

end;

writeln ('Количество положительных элементов в массиве:', x); / / вывод строки на экран.

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

End.