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