Х = {-5,2; 3; 1; -15; -24; -75,4; 80,6; -22; 4,5; -31,7; 43,4; 16}Вычислить среднее геометрическое положительных элементов массива Х. Написать программу, VBA Basic
Х = {-5,2; 3; 1; -15; -24; -75,4; 80,6; -22; 4,5; -31,7;
43,4; 16}
Вычислить среднее геометрическое положительных
элементов массива Х. Написать программу, VBA Basic
Гость
Ответ(ы) на вопрос:
ГостьВариант для VBA Excel считает среднее геометрическое для базы из 100 чисел
Для приведенных выдает
9.543619
Sub geo()
Dim X(100)
S = 1
N = 0
For i = 1 To 100
X(i) = Cells(i, 3)
If X(i) > 0 Then
S = S * X(i)
N = N + 1
End If
Next i
Cells(4, 2) = S ^ (1 / N)
End Sub
Сам код программы можно увидеть нажав Alt+F11
Не нашли ответ?
Похожие вопросы