Посчитать среднее арифметическое 10 чисел QBasic

1
2
3
4
5
6
7
8
9
10
11

CLS
N = 15
DIM M(N)
SUMM = 0
FOR I = 1 TO N
M(I) = INT(RND * 100)
PRINT I; "-"; M(I)
SUMM = SUMM + M(I)
NEXT I
PRINT "_________"
PRINT "SrArefm = "; SUMM/N