Найти произведение в каждом столбце матрицы - QBasic

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

Задана матрица из n-строк и m-столбцов. Найти произведение в каждом столбце и указать их количество нечетных элементов в каждом столбце. На QBasicе

Решение задачи: «Найти произведение в каждом столбце матрицы»

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

DEFLNG A, I-K, M-N, P
OPTION BASE 1
CLS
m = 5
n = 6
DIM a(m, n)
DIM p(6)
DIM k(6)
RANDOMIZE TIMER
 
FOR i = 1 TO m
   FOR j = 1 TO n
      a(i, j) = INT((20 * RND) - 10)
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
FOR j = 1 TO n
   p(j) = 1
NEXT j
 
ERASE k
FOR j = 1 TO n
   FOR i = 1 TO m
      p(j) = p(j) * a(i, j)
      IF ABS((a(i, j) MOD 2)) = 1 THEN k(j) = k(j) + 1
   NEXT i
NEXT j
 
PRINT
FOR j = 1 TO n
   PRINT p(j);
NEXT j
PRINT
FOR j = 1 TO n
   PRINT k(j);
NEXT j
END

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

Начинается с объявления переменных: m, n, a(m, n), p(6), k(6).
Задаются начальные значения переменным m и n (5 и 6 соответственно).
Создается двумерный массив a(m, n) и заполняется случайными числами в диапазоне от -10 до 10 с шагом в 2 единицы.
Выводится на экран заполненная матрица a(m, n).
Создается одномерный массив p(6) и заполняется единицами.
Создается массив k(6) и инициализируется нулями.
Для каждого элемента матрицы a(m, n) в каждой строке рассчитывается произведение элементов и сохраняется в соответствующем элементе массива p(j).
Если остаток от деления элемента a(i, j) на 2 равен 1, то к соответствующему элементу массива k(j) прибавляется единица.
Выводится на экран массив p(6).
Выводится на экран массив k(6).