1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLSRANDOMIZE TIMERINPUT "vvedite n"; nDIM a(n)FOR i = 1 TO n a(i) = FIX(RND * 11 + 10)NEXTFOR i = 2 TO n STEP 2 k = k + 1 sr = sr + a(i)NEXTsr = sr / kFOR i = 1 TO n PRINT a(i);NEXTPRINTPRINT "sr:"; sr |
Тестирование выполнено в программе QB64 ( Скачать )