Вывести на экран номера строк , сумма элементов которых чётна - QBasic

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

Вывести на экран номера строк массива 5 х 5, сумма элементов которых чётна.

CLS
DIM X(5, 3)
FOR i = 1 TO 5
FOR j = 1 TO 3
X(i, j) = INT(RND(i) * 50) – 10
    LOCATE j * 2, i * 4 – 3
    PRINT X(i, j)
NEXT j, i
FOR i = 1 TO 5
FOR j = 1 TO 1
   S1 = S1 + X(i, 1)
 S2 = S2 + X(i, 2)
 S3 = S3 + X(i, 3)
NEXT j, i
    PRINT
PRINT “ Сумма 1, 2, 3 рядов:” ; S1, S2, S3
IF S1 MOD 2 = 0 THEN PRINT “ Чётный ряд № 1”
IF S2 MOD 2 = 0 THEN PRINT “ Чётный ряд № 2”
IF S3 MOD 2 = 0 THEN PRINT “ Чётный ряд № 3”

На выходе имеем:

25   4  -18   25   33
16   5    28   -8   29
18   28  30   10   8
Суммы 1, 2 , 3 рядов:  77   70   94
Чётный ряд № 2
Чётный ряд № 3

Правильно ли я выполнил эту программу, или можно её выполнить как то по другому и покороче. А если рядов, например, 10 и более, тогда что – для каждого ряда писать такие условия? Желательно получить ответ.

Решение задачи: «Вывести на экран номера строк , сумма элементов которых чётна»

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

REM работает
 
CLS
n = 5
DIM x(n, n)
 
FOR i = 1 TO n
FOR j = 1 TO n
   x(i, j) = INT(40 * RND - 20)
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO n
   SUM = 0
 
   FOR j = 1 TO n
      SUM = SUM + x(i, j)
   NEXT j
 
   IF SUM MOD 2 = 0 THEN PRINT i
NEXT i
END

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

Создаётся двумерный массив размером 5x5 (n=5).
В цикле заполняются все ячейки массива случайными числами от -20 до 20.
Выводится на экран содержимое всех ячеек массива (x(i, j)) с шагом 5 строк.
Для каждой строки суммируются все элементы (SUM=0; j=1 TO n).
Если сумма элементов чётная, то выводится номер строки (i).