Найти среднее положительных элементов матрицы с(8,6) - вопрос №679753086 от умар53 03.03.2020 13:56

Question

Информатика: Найти среднее положительных элементов матрицы с(8,6) программирование на языке vba (visual basic for application) !

умар53 · Answer

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