1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | CLSINPUT "vvedite razmer massiva"; nDIM a(n)FOR i = 1 TO n PRINT "vvedite element"; i INPUT a(i)NEXTFOR i = 1 TO n s = s + a(i)NEXTsr = s / nm = srFOR i = 1 TO n d = a(i) - sr IF d < 0 THEN d = d * (-1) IF d < m THEN m = d: k = iNEXTCLSFOR i = 1 TO n PRINT a(i);NEXTPRINTPRINT "sr="; srPRINT "bl="; a(k) |
Тестирование выполнено в программе QB64 ( Скачать )