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

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

9 голосов , оценка 4.222 из 5

Похожие ответы