Вычислить и вывести значение суммы максимальных элементов каждой строки матрицы - QBasic

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

Дана матрица целых чисел размером nхm. Вычислить и вывести значение суммы максимальных элементов из каждой строки.

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

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

DEFINT A-B, I-J, M-N, S
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
INPUT "Vvedite M"; m
DIM a(n, m)
DIM b(n)
PRINT
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = 21 * RND - 10.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
FOR i = 1 TO n
   b(i) = a(i, 1)
NEXT i
 
FOR i = 1 TO n
   FOR j = 1 TO m
      IF b(i) < a(i, j) THEN b(i) = a(i, j)
   NEXT j
NEXT i
 
s = 0
FOR i = 1 TO n
   s = s + b(i)
NEXT i
PRINT
PRINT "SUMMA MAXIMALNYH ELEMENTOV = "; s
END

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

Ввод значений N и M - пользователь вводит количество строк и столбцов матрицы
Создание матрицы a - создается матрица a размером NxM, в которой будут храниться значения элементов
Создание матрицы b - создается матрица b размером N, в которой будут храниться максимальные значения элементов каждой строки матрицы a
Заполнение матрицы a - происходит заполнение матрицы a случайными числами от -10.5 до 21.5
Вывод значений матрицы a - выводятся значения всех элементов матрицы a построчно
Нахождение максимальных значений в каждой строке матрицы a и запись их в матрицу b - происходит обход каждой строки матрицы a и сравнение значений каждого элемента с текущим максимальным значением в этой строке. Если текущий элемент больше максимального, то он становится новым максимальным значением
Нахождение суммы максимальных значений в каждой строке матрицы a и запись ее в переменную s - происходит обход каждой строки матрицы b и суммирование максимальных значений
Вывод значения суммы максимальных значений - выводится значение переменной s
Окончание работы программы - программа завершает свою работу