Sub seven()
Dim n As Integer, s As String, f As Long, Table(15) As Integer, Z As Integer, k As Integer, r As Integer, L As Integer, U As Double, h As Long, p As String

    Z = 0
    k = 0
    r = 100
    U = 1

    For n = 1 To 15
        Table(n) = Rnd * 25
        Z = Z + Table(n)
        U = U * Table(n)
    Next n

    f = Z / 15 'àðåôì
    h = U ^ (1 / 15) 'ãåîì

    For n = 1 To 15
        s = s & Table(n) & " "
    Next n

    For n = 1 To 15
        If Table(n) > k Then
            k = Table(n) 'íàèáðëüøåå
        End If
        If Table(n) < r Then
            r = Table(n) 'íàèìåíüøåå
        End If
        L = f
        If (k - f) > (f - r) Then
            L = k
        End If
        If (k - f) < (f - r) Then
            L = r
        End If
    Next n

    If L \ 2 = L / 2 Then
        For n = 1 To 15
            If L \ 3 = L / 3 Then
                Table(n) = 0
            End If
        Next n
    Else
        For n = 1 To 15
            If L \ 5 = L / 5 Then
                Table(n) = Table(n) ^ 2
            End If
        Next n
    End If


    For n = 1 To 15
        p = p & Table(n) & " "
    Next n

    MsgBox s & vbNewLine & "Ñðåäíåå ãåîì. = " & h & vbNewLine & "Ñðåäíåå àðåôì. = " & f & vbNewLine & "Íàèáîëüøåå îòêë. = " & L & vbNewLine & p

End Sub