zadach236.BAS

{* Задача236 *}

REM basic

' Найти среднее геометрическое элементов вектора V(N), которое рассчитывают
' по формуле sr = (v(1)*v(2)*...*v(N))^(1/N)


CLS
INPUT "Введите количество элементов в векторе ", N
Dim v(N)
Dim p As Double


RANDOMIZE TIMER
For i = 1 To N
        v(i) = CInt(RND * (15 - 5) + 5)
        PRINT v(i)
Next i

p = 1
For i = 1 To N
        p = p * v(i)
Next i

sr = p ^ (1 / N)
        PRINT "Среднее геометрическое равно "; sr

End