Сформировать матрицу и найти наибольшее среди средних арифметических элементов ее строк. VBA

[SkyGir]

Здравствуйте. Нужна помощь. Никак не могу решить задачу

Option Explicit On
Option Base 1
Sub массив()
    Dim mass() As Integer, i As Integer, j As Integer, n As Integer, str As String, max As Single, t As Integer, x As Single

n = InputBox(("Введите порядок матрицы", "Определение массива")
ReDim mass(1 To n, 1 To n) As Integer
    Randomize()
    For i = 1 To n
        For j = 1 To n
            mass(i, j) = Int(10 * Rnd + 1)
            str = str & mass(i, j) & "   "
        Next j
        str = str & Chr(13)
    Next i
    For j = 1 To n
        max = mass(1, j)
    Next j
    For i = 1 To n
        t = 0
    Next i
    For j = 1 To n
        t = max + mass(1, j)
        If t > max Then max = t
    Next j
    x = t / n
    If x > max Then max = x
End Sub

[Aleksandr H.]

Option Explicit
Option Base 1
Sub массив()
    Dim mass() As Integer, i As Integer, j As Integer, n As Integer, maxAvg As Single, t  As Integer
    n = InputBox("Введите порядок матрицы", "Определение массива")
    ReDim mass(1 To n, 1 To n) As Integer
    Randomize
    maxAvg = 0
    For i = 1 To n
        t = 0
        For j = 1 To n
            mass(i, j) = Int(10 * Rnd + 1)
            t = t + mass(i, j)
        Next j
        If i = 1 Then
            maxAvg = t / n
        Else
            If t / n > maxAvg Then maxAvg = t / n
        End If
    Next i
End Sub

[SkyGir]

Спасибо огромное. Теперь это надо вывести на экран. Маленько изменил и все заработало. Прям человеческое спасибо!

Option Explicit
Option Base 1
Sub Массив()
    Dim mass() As Integer, i As Integer, j As Integer, n As Integer, maxAvg As Single, t  As Integer, str As String
    n = InputBox(""Введите порядок матрицы", "Определение массива"")
    ReDim mass(1 To n, 1 To n) As Integer
    Randomize
    maxAvg = 0
    For i = 1 To n
For j = 1 To n
mass(i, j) = Int(10 * Rnd + 1)
str = str & mass(i, j) & "   "
Next j
str = str & Chr(13)
Next i
    For i = 1 To n
        t = 0
        For j = 1 To n
             t = t + mass(i, j)
        Next j
        If i = 1 Then
            maxAvg = t / n
        Else
            If t / n > maxAvg Then maxAvg = t / n
        End If
    Next i
    MsgBox "Массив: " & str & Chr(13) & "Наибольшее среди средних арифметических элементов ее строк = " & maxAvg
End Sub

Пожалуйста, оформляйте Ваш код согласно правилам.

[SkyGir]

А вот если такую же операцию надо провернуть со столбцами массива, то как быть? Все разобрался:

Option Explicit On
Option Base 1
Sub Массив()
    Dim mass() As Integer, i As Integer, j As Integer, n As Integer, minAvg As Single, t As Integer, str As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim mass(1 To n, 1 To n) As Integer
    Randomize()
    minAvg = 0
    For i = 1 To n
        For j = 1 To n
            mass(i, j) = Int(10 * Rnd + 1)
            str = str & mass(i, j) & "   "
        Next j
        str = str & Chr(13)
    Next i
    For j = 1 To n
        t = 0
        For i = 1 To n
            t = t + mass(i, j)
        Next i
        If j = 1 Then
            minAvg = t / n
        Else
            If t / n < minAvg Then minAvg = t / n
        End If
    Next j
    MsgBox("Массив: " & str & Chr(13) & "Наименьшее среди средних арифметических элементов столбцов = " & minAvg)
End Sub