1 2 3 4 5 6 7 8 9 10 11 12 13 | INPUT "vvedite kolichestvo elementov N ", n DIM a(n) FOR i = 1 TO n INPUT "vvedite element ", a(i) NEXT PRINT "massiv" FOR i = 1 TO n PRINT a(i); NEXT FOR i = 1 TO n IF a(i) > 5 THEN s = s + a(i): k = k + 1 NEXT PRINT s / k |
Тестирование выполнено в программе QB64 ( Скачать )