Вычислить среднее геометрическое суммы чисел - VB
Формулировка задачи:
Здравствуйте! Помогите, пожалуйста, решить задачи.
1) Дана последовательность из N положительных чисел. Вычислить среднее геометрическое суммы этих чисел.
2) Дана квадратная матрица А порядка n. Найти количество нулевых элементов, стоящих : а)выше главной диагонали, б) ниже главной диагонали.
Заранее спасибо!
Решение задачи: «Вычислить среднее геометрическое суммы чисел»
textual
Листинг программы
Sub Task_1()
Dim N, i As Integer, vSrG, arr()
N = InputBox("N:")
ReDim arr(1 To N)
vSrG = 1
Do
i = i + 1
arr(i) = InputBox("Ââîä Г·ГЁГ±Г«Г* " & i)
vSrG = vSrG * arr(i)
Loop Until i = N
MsgBox vSrG ^ (1 / N)
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д