Сформировать вектора х(4), значения элементов которого являются максимальные значения столбцов матрицы - VBA - Ответ 3167569

Sub ПесньМаксимумов()
Const M = 3, N = 4 ' количество строк и столбцов
Dim s(M), i, j, max
    s(1) = Array(-12, -10, -10, 1E+16)                  '1-я строка
    s(2) = Array(1, 2, 4, 238)                          '2-я строка
    s(3) = Array(8, 8, 16, 239)                         '3-я строка
'    s(4) = Array(32, 32, 32, 555)                       '4-я строка (когда M = 4)
ReDim a(1 To M, 1 To N) 'матрица из M строк и N столбцов
ReDim x(1 To N) 'вектор (одномерный массив) из M элементов
 
    For i = 1 To M
            max = -1E+16 ' max изначально задано как число, меньшее всех a(i, j)
            For j = 1 To N
                a(i, j) = s(i)(j) 'создание матрицы a
                If max < a(i, j) Then max = a(i, j) 'максимум i-й строки
                Selection.TypeText a(i, j) & vbTab  'печать элемента a(i, j)
            Next
        Selection.TypeText "(row’s max: " & max & ")" & vbLf 'максимум строки i
    Next
 
    For j = 1 To UBound(a, 2) 'перебор СТОЛБЦОВ матрицы a (2 это её 2-е измерение)
        max = -1E+16            ' сильно отрицательное число
            For i = 1 To M
                If max < a(i, j) Then max = a(i, j) 'максимум j-го столбца
            Next
        x(j) = max              'j-й элемент вектора x, т. е. максимум столбца j
    Next
    
    For j = 1 To UBound(a, 2):  Selection.TypeText x(j) & vbTab: Next 'печать x
    Selection.TypeText "<максимумы по столбцам>" & vbCr
End Sub