Дан массив из н строк м столбцов,найти максимальную сумму элементов столбца — PureBasic(Бейсик)

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

Leave a Comment