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

disel
1
2
3
4
5
6
7
8
9
10
11
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