Найти среднее геометрическое элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д