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 |
Тестирование выполнено в программе QB64 ( Скачать )