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

CLS
__________________________________
DIMX(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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.