1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | CLSINPUT "vvedite razmer massiva"; nDIM a(n)FOR i = 1 TO n PRINT "vvedite element "; i INPUT a(i)NEXTFOR i = 1 TO n sr = sr + a(i)NEXTsr = sr / nFOR i = 1 TO n IF a(i) > sr THEN k = k + 1NEXTx = (k * 100) / nFOR i = 1 TO n PRINT a(i);NEXTPRINTPRINT "srednee znachenie ="; srPRINT "procentov boshe srednego ="; x; "%" |
Тестирование выполнено в программе QB64 ( Скачать )