Найти сумму элементов строки матрицы - QBasic

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

Дана матрица целых чисел размером n×m. Найти сумму элементов строки матрицы,в которой расположен максимальный элемент. Если таких элементов несколько ,то найти все суммы элементов соответствующих строк.

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

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

DEFINT A, I-J, M-N, S
OPTION BASE 1
RANDOMIZE TIMER
CLS
INPUT "Vvedite N"; n
INPUT "Vvedite M"; m
DIM a(n, m)
 
FOR i = 1 TO n
   FOR j = 1 TO m
      a(i, j) = 81 * RND - 40.5
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
PRINT
max = a(1, 1)
FOR i = 1 TO n
   FOR j = 1 TO m
      IF a(i, j) > max THEN max = a(i, j)
   NEXT j
NEXT i
 
PRINT "MAXIMALNYI ELEMENT = "; max
PRINT
FOR i = 1 TO n
   FOR j = 1 TO m
      IF a(i, j) <> max THEN
         GOTO 100
      ELSE
         s = 0
         FOR k = 1 TO m
            s = s + a(i, k)
         NEXT k
         PRINT "SUMMA ELEMENTOV"; i; "-oi STROKI ="; s
         GOTO 200
      END IF
100
   NEXT j
   PRINT
200
NEXT i
END

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

В этом коде:

Пользователю предлагается ввести два числа N и M (строки 1 и 2), которые определяют размер матрицы.
Создается матрица a(n, m) (строка 3) размером N на M.
В каждой ячейке матрицы генерируется случайное число от 0 до 80 (строки 5-6).
Выводится первая строка матрицы (строка 7).
Находится максимальное число в матрице (строки 9-16).
Выводится максимальное число (строка 17).
Для каждого элемента матрицы проверяется, является ли он равным максимальному числу (строки 19-23).
Если элемент не равен максимальному числу, то к сумме элементов не добавляется ничего (строка 24).
Если элемент равен максимальному числу, то для этого элемента суммируются все элементы строки (строки 25-28).
Выводится сумма элементов строки (строка 29).