максимальный элемент

[rogge]

Дана матрица размера M х N. В каждом столбце матрицы найти
максимальный элемент

[Вадим Мошев]

В чём у вас возникают проблемы? Показывайте, что не получается.

[rogge]

Sub smth()
    Dim a() As Integer
    Dim Max, m, n, i, j As Integer
    n = CInt(InputBox("Число строк"))
m = CInt(InputBox("Число столбцов"))
ReDim a(1 To n, 1 To m) As Integer
For i = 1 To m
a(i) = InputBox("A(" & i & " ")
For j = 1 To n
a(j) = InputBox("A(" & j & " ")
Next j
Next i

For j = 1 To n
a(j) = InputBox("A(" & j & " ")
Max = a(1, j)
For i = 2 To m
If a(i, j) > Max Then
Max = a(i, j)
End If
Next i
Next j
MsgBox Max
End Sub

пишет run-time error