Х = {-5,2; 3; 1; -15; -24; -75,4; 80,6; -22; 4,5; -31,7; 43,4; 16}Вычислить среднее...

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

---

Скачать вложение Excel (XLS)