Дан массив : X1, X2, X3, .. , Xn (n=100) Найти среднее арифметическое положительных...

Question

Дан массив : X1, X2, X3, .. , Xn (n=100) Найти среднее арифметическое положительных чисел. в basic.

Answer 1

CLS
'__________________________________
DIM X(100)
N = 100
FOR I = 1 TO N
X(I) = INT((-20 + 50 * RND) * 10) / 10
PRINT I; X(I),
NEXT I
'----------------------------------
PRINT
S = 0
K = 0
FOR I = 1 TO N
IF X(I) > 0 THEN
S = S + X(I)
K = K + 1
END IF
NEXT I
PRINT "Sr="; S / K