Найти произведение и количество четных элементов массива - QBasic

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

Напишите плиз код на Qbasic,

HELP

Найти произведение и количество четных элементов заданного массива A (N,M)

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

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

CLS
RANDOMIZE TIMER
CONST n = 4
CONST m = 6
 
DIM A(1 TO n, 1 TO m) AS LONG
 
FOR i = 1 TO n
FOR j = 1 TO m
   A(i, j) = 9 * RND
   PRINT A(i, j);
NEXT j: PRINT
NEXT i: PRINT
 
p = 1
col = 0
 
FOR i = 1 TO n
FOR j = 1 TO m
   IF A(i, j) MOD 2 = 0 THEN
      p = p * A(i, j)
      col = col + 1
   END IF
NEXT j
NEXT i
 
IF col = 0 THEN
   PRINT "CHETNYH CHISEL NET"
ELSE
   PRINT "Col ="; col; "P ="; p
END IF
END

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

Объединение двух циклов в один цикл.
Использование функции RND для заполнения массива A случайными числами.
Переменная p используется для хранения произведения четных чисел.
Переменная col используется для подсчета количества четных чисел.
В условии IF используется оператор MOD для проверки четности числа.
Условие IF выполняется для каждого элемента массива A.
Если элемент массива четный, то он умножается на p и прибавляется к col.
После завершения циклов проверяется значение переменной col.
Если col равно 0, то выводится сообщение CHETNYH CHISEL NET.
В противном случае выводится сообщение Col = & col & P = & p.