{* Задача140 *}

REM basic

' Вычислить среднюю геометрическую положительных элементов массива R(m). Массив R(m) вывести на печать.


CLS
RANDOMIZE TIMER
INPUT "vvedite m"; m
Dim r(m): p = 1
For i = 1 To m
    r(i) = FIX(RND * 100 - 15)
Next
For i = 1 To m
    PRINT r(i);
Next
PRINT
PRINT String$(80, 196)
For i = 1 To m
    If r(i) > 0 Then p = p * r(i): k = k + 1
Next
srgeom = p ^ (1 / k)
PRINT "srgeom:"; srgeom
End