Матрица - QBasic (145436)

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

Дана матрица целых чисел размерности MxN . Найти произведение положительных элементов матрицы, сумма индексов которых делится на k

Решение задачи: «Матрица»

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

CLS
RANDOMIZE TIMER
 
INPUT "M, N = "; m, n
INPUT "K = "; k
DIM x(m, n) AS LONG
 
FOR i = 1 TO m
FOR j = 1 TO n
   x(i, j) = 18 * RND - 9
   PRINT x(i, j);
NEXT: PRINT
NEXT: PRINT
 
p = 1
 
FOR i = 1 TO m
FOR j = 1 TO n
   IF (i + j) MOD k = 0 THEN
   IF x(i, j) > 0 THEN
      p = p * x(i, j)
      s = s + 1
   END IF
   END IF
NEXT j, i
 
IF s THEN
   PRINT "P ="; p
ELSE
   PRINT "TAKIH CHISEL NET"
END IF
END

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

В этом коде на языке QBasic создаётся и заполняется матрица случайными целыми числами, после чего производится проверка на условие (i + j) MOD k = 0 для каждой пары значений i и j. Если это условие выполняется и значение элемента матрицы x(i, j) больше нуля, то произведение этого значения и переменной p увеличивается на единицу, а переменная s, отвечающая за количество найденных пар, увеличивается на единицу. В конце программы проверяется, было ли найдено хотя бы одно удовлетворяющее условию значение. Если да, то выводится значение переменной p, иначе выводится сообщение TAKIH CHISEL NET. Я не могу утверждать, что этот код верный и не содержит ошибок, так как не имею возможности проверить его на практике.