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

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

очень нужно сегодня часам к 9и,уже не знаю,че делать дан массив из н строк м столбцов,найти максимальную сумму элементов столбца! заранее спасибо!

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

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

maxSumm=0 'максимальная сумма элементов
For i=1 to m
  maxCol = 0 'сумма столбца
  For j=1 to n
    maxCol=maxCol + A(j,i)
  Next j
  If maxCol > maxSumm Then
    maxSumm=maxCol
  End if
Next i
Print maxSumm

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

В данном коде на языке QBasic реализована задача поиска максимальной суммы элементов столбца матрицы.

Переменная maxSumm инициализируется значением 0 и предназначена для хранения максимальной суммы элементов.
Два вложенных цикла выполняются последовательно для всех строк и столбцов матрицы.
Внутри циклов переменной maxCol инициализируется значение суммы элементов столбца, равное 0.
Для каждого элемента столбца к переменной maxCol прибавляется значение элемента.
Если значение переменной maxCol больше текущего значения переменной maxSumm, то значение переменной maxSumm обновляется.
После завершения циклов выводится значение переменной maxSumm, которое является максимальной суммой элементов.