Вычислить среднее геометрическое нечетных чисел в массиве - 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))

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


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

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

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