{* Задача271 *}

REM basic

' В данном массиве А{n} вычислить среднее арифметическое и среднее геометрическое положительных элементов


INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    INPUT "vvedite element"; a(i)
Next
s = 0
p = 1
For i = 1 To n
    If a(i) > 0 Then s = s + a(i): p = p * a(i): k = k + 1
Next
For i = 1 To n
    PRINT a(i);
Next
sra = s / k
srg = p ^ (1 / k)
PRINT
PRINT "sra"; sra
PRINT "srg"; srg
End