Определить сумму отрицательных элементов пятой строки матрицы - QBasic

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

4. Двумерные массивы Дан двумерный массив чисел. Определить сумму отрицательных элементов пятой строки.

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

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

CLS
DIM a(5, 5)
RANDOMIZE TIMER
FOR i = 1 TO 5
FOR j = 1 TO 5
a(i, j) = INT(RND * 5)
PRINT USING "####"; a(i, j);
NEXT j
PRINT
NEXT i
FOR j = 1 TO 5
s = s + a(5, j)
NEXT j
PRINT "summa="; s

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

Объявляется матрица a(5, 5) размером 5x5.
Задаётся начальное значение переменной s равное 0.
Заполняется матрица a(i, j) случайными числами от -5 до 5 с шагом 1.
Выводится на экран заполненная матрица a(i, j).
С помощью цикла FOR суммируются элементы пятой строки матрицы a(5, j) и сохраняются в переменной s.
Выводится на экран значение переменной s.