помогите пож-та информатика
Опубликовано Алена в 27 Декабрь, 2010 - 23:57
задана матрица Х (NxM) определить номер столбца имеющего наибольшую сумму элементов.
язык паскаль
- Войдите или зарегистрируйтесь, чтобы получить возможность отправлять комментарии
Ну, Вы даете!
Ну, Вы даете!
Это очень просто
Вот, например, код на VBA:
Sub Макрос1()
Const N = 5 ' количество строк
Const M = 3 ' количество столбцов
Dim Arr(N - 1, M - 1) As Integer ' матрица
' заполняем матрицу
For j = 1 To M
For i = 1 To N
Arr(i - 1, j - 1) = Cells(i, j).Value
Next i
Next j
K = 1 ' Номер столбца с максимальным значением
Sum_M = 0
For j = 1 To M
Sum_N = 0
For i = 1 To N
Sum_N = Sum_N + Arr(i - 1, j - 1)
Next i
If Sum_M < Sum_N Then
K = j
Sum_M = Sum_N
End If
Next j
MsgBox ("Номер столбца с максимальным значением " & CStr(K))
End Sub