Подсчет числа положительных и отрицательных чисел среди сумм элементов строк массива - QBasic

Формулировка задачи:

Составьте программу подсчета числа положительных и отрицательных чисел среди сумм элементов строк массива A (N,M)

Решение задачи: «Подсчет числа положительных и отрицательных чисел среди сумм элементов строк массива»

Листинг программы

CLS
n=5
m=5
pol=0
otr=0
DIM a(n,m)
RANDOMIZE TIMER
FOR i=1 TO n
 FOR j=1 TO m
  a(i,j)=INT(RND*100)+1
  PRINT a(i,j);
 NEXT
 PRINT
NEXT
PRINT
FOR i=1 TO n
 FOR j=1 TO m
  IF a(i,j)>0 THEN
   pol=pol+1
  ELSE
   otr=otr+1
  END IF
 NEXT
NEXT
 PRINT pol;otr

Объяснение кода листинга программы

Объявлены переменные: n, m, pol, otr (количество строк, столбцов, положительных и отрицательных чисел соответственно), а также массив a(n,m).
Задается начальное значение элемента массива a(i,j) с помощью функции INT(RND*100)+1.
С помощью двух вложенных циклов FOR выводится на экран каждый элемент массива a(i,j).
С помощью еще двух вложенных циклов FOR подсчитывается количество положительных и отрицательных чисел в массиве a(i,j).
Выводится на экран количество положительных и отрицательных чисел в массиве a(i,j).