Найти сумму 3-го столбца, количество нулевых элементов в матрице - QBasic

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

Дана квадратная матрица Y на 25 элементов. Матрица заполнена целыми числами из диапазона (-15 +15) Найти сумму 3-го столбца, кол-во нулевых элементов в матрице, заменить первый элемент матрицы числом 200.

Решение задачи: «Найти сумму 3-го столбца, количество нулевых элементов в матрице»

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

CLS
n = 5
FOR i = 1 TO n
FOR j = 1 TO n
y(i, j) = INT(RND(1) * 30) + 1 - 15
PRINT USING " ### "; y(i, j);
NEXT j
PRINT
NEXT i
sum = 0
FOR i = 1 TO n
sum = sum + y(i, 3)
NEXT i
PRINT "Summa 3-go stolbca= "; sum
kol = 0
FOR i = 1 TO n
FOR j = 1 TO n
IF y(i, j) = 0 THEN kol = kol + 1
NEXT j
NEXT i
PRINT "kol-vo nylevix kol="; kol
y(1, 1) = 200
END

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

CLS - очистка экрана
n = 5 - задание размера матрицы
FOR i = 1 TO n - цикл по строкам матрицы от 1 до n
FOR j = 1 TO n - цикл по столбцам матрицы от 1 до n
y(i, j) = INT(RND(1) * 30) + 1 - 15 - заполнение матрицы случайными числами от 1 до 30, с исключением чисел от 4 до 14 (включительно)
PRINT USING ###; y(i, j); - печать значения элемента матрицы с форматированием в 3 пробела
NEXT j - переход к следующей строке матрицы
PRINT - печать горизонтальной строки из символов -
NEXT i - переход к следующей строке матрицы
sum = 0 - инициализация переменной для хранения суммы 3-го столбца
FOR i = 1 TO n - цикл по строкам матрицы от 1 до n
sum = sum + y(i, 3) - суммирование значений 3-го столбца
NEXT i - переход к следующей строке матрицы
PRINT Summa 3-go stolbca=; sum - печать суммы 3-го столбца
kol = 0 - инициализация переменной для хранения количества нулевых элементов
FOR i = 1 TO n - цикл по строкам матрицы от 1 до n
FOR j = 1 TO n - цикл по столбцам матрицы от 1 до n
IF y(i, j) = 0 THEN kol = kol + 1 - подсчет количества нулевых элементов
NEXT j - переход к следующей строке матрицы
NEXT i - переход к следующей строке матрицы
PRINT kol-vo nylevix kol=; kol - печать количества нулевых элементов
y(1, 1) = 200 - изменение значения элемента матрицы (для корректного вывода суммы и количества нулевых элементов)
END - завершение программы