Вычислить среднее геометрическое нечетных чисел в массиве - VB
Формулировка задачи:
Вычислить среднее геометрическое нечетных чисел в массиве,заданном случайным образом в интервале [-19,1 / 19,25]
Решение задачи: «Вычислить среднее геометрическое нечетных чисел в массиве»
textual
Листинг программы
Dim A() As Single, n As Integer, SR As Single
n = Val(InputBox("Количество элементов в массиве"))
If n < 1 Then MsgBox ("Некорректный ввод"): Exit Sub
ReDim A(1 To n)
For i = 1 To n
A(i) = 38.15 * Rnd - 19.1
Next i
SR = 1
For i = 1 To n Step 2
SR = SR * A(i)
Next i
MsgBox SR ^ (1 / (Round(n / 2) + 1))