zadach29.BAS

{* Задача29 *}

REM basic

' вычислить среднее геометрическое элементов массива Y.
' условия и ограничения: Y(20) - массив, yi>0


10 CLS : INPUT "КОЛИЧЕСТВО ЭЛЕМЕНТОВ МАССИВА n:"; N: PRINT "n ="; N: Dim Y(N)
30 P = 1: For I = 1 To N: Y(I) = RND * 10 - 5: PRINT Y(I),
40 If Y(I) > 0 Then P = P * Y(I): K = K + 1
50 Next I
60 S = P ^ (1 / K): PRINT
70 PRINT "СРЕДНЕЕ ГЕОМЕТРИЧЕСКОЕ МАССИВА"; S
80 PRINT "ЧИСЛО ЭЛЕМЕНТОВ МАССИВА       "; K
90 End