Найти среднее геометрическое элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 3.933 из 5
Похожие ответы