|
zadach29.BAS |
|
{* Задача29 *}REM basic ' вычислить среднее геометрическое элементов массива Y.' условия и ограничения: Y(20) - массив, yi>010 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
|