Массив (n, n), найти кол-во положительных чисел и сумму отриц. [-10; 10] написать программу в ABC

var

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

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

begin

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

begin

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

if (arr[i] > 0) then / / если элемент больше 0, считаем количество.

x : = x + 1;

if (arr[i] < 0) then / / если элемент отрицательный, считаем сумму.

sum : = sum + arr[i];

write (arr[i],' '); / / вывод на экран содержимого массива.

end;

writeln; / / перевод на новую строку.

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

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

end.