1 2 3 4 5 6 7 8 9 10 11 12 | CLSINPUT "vvedite n"; nDIM a(n)FOR i = 1 TO n PRINT "vvedite element"; i INPUT a(i)NEXTFOR i = 1 TO n IF a(i) > 0 THEN s = s + a(i) ^ 2: k = k + 1NEXTsr = s / kPRINT "sr ="; sr |
Тестирование выполнено в программе QB64 ( Скачать )