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

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

составить программу подсчета строк двухмерного массива А(N,N) в которых имеются два нулевых элемента

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

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

 CLS
 n = 10
 e = 0
 m = 5
 DIM a(n, m)
 RANDOMIZE TIMER
 FOR i = 1 TO n
  FOR j = 1 TO m
   a(i, j) = INT(RND * 10) - 1
   PRINT a(i, j);
  NEXT
  PRINT
 NEXT
 FOR i = 1 TO n
 k = 0
  FOR j = 1 TO m
   IF a(i, j) = 0 THEN
    k = k + 1
   END IF
   IF k = 2 THEN
     e = e + 1
    END IF
  NEXT
 NEXT
 PRINT
 PRINT e

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

Код выполняет следующие действия:

Задаёт размеры матрицы n на m и инициализирует переменную e для подсчёта результата.
Создаёт матрицу a(n, m) и заполняет её случайными числами от -5 до 5.
Выводит на экран все элементы матрицы.
Перебирает строки матрицы с помощью двух вложенных циклов.
Считает количество нулевых элементов в каждой строке.
Если в строке есть два нуля, увеличивает счётчик e на единицу.
Выводит на экран количество строк с двумя нулями.