Question

Найти среднее геометрическое положительных элементов матрицы С(8,6) Программирование на языке VBA (Visual Basic For Application) помогите пожалуйста срочно очень!!!

Answer 1

Sub aaa()
    Dim srg As Double
    srg = 1
    n = 0
    a = Range("A1:F8")
    For Each x In a
        If x > 0 Then
            srg = srg * x
            n = n + 1
        End If
    Next
    srg = srg ^ (1 / n)
    MsgBox "Ср.геом=" + Str(srg)
End Sub

45494b9a7b86aa31bd3cd8e768f82fb7.xls