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