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
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