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

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