Найти среднее геометрическое элементов массива - VB
Формулировка задачи:
помогите пожалуйста
В заданном массиве A1,A2,......,An с положительными элементами найти среднее геометрическое,а затем всё элементы с нечётными индексами увеличить на величину среднего геометрического .
Решение задачи: «Найти среднее геометрическое элементов массива»
textual
Листинг программы
Private Sub Form_Load()
Dim A() As Single, n As Integer
Dim Sr As Variant, i As Integer
Dim txt As String
n = InputBox("n")
txt = ""
ReDim A(1 To n)
Sr = 1
For i = 1 To n
A(i) = Int(10 * Rnd + 1)
Sr = Sr * A(i)
Next i
Sr = Sr ^ (1 / n)
MsgBox "Среднее геометрическое : " & Sr
For i = 1 To n Step 2
A(i) = A(i) + Sr
txt = txt & A(i) & " "
Next i
MsgBox txt
End Sub