Вопрос по информатике:

Массив (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.