Question

 



Х = {-5,2;   3;   1;   -15;   -24;   -75,4;   80,6;   -22;   4,5;   -31,7;
  43,4;   16}




Вычислить среднее геометрическое положительных
элементов массива Х. Написать программу, VBA Basic

Answer 1

Вариант для 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

d5258de8e9843264fe6e72190e0dae68.xls