1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 | INPUT "vvedite n", n INPUT "vvedite m", m DIM a(n, m) FOR i = 1 TO n FOR j = 1 TO m INPUT "vvedite element", a(i, j) NEXT j NEXT i PRINT "_____" PRINT "matrica" FOR i = 1 TO n FOR j = 1 TO m PRINT a(i, j); NEXT PRINT NEXT PRINT "______" FOR i = 1 TO n FOR j = 1 TO m v = v + a(i, j): k = k + 1 NEXT NEXT sr = v / k PRINT "srednee", sr FOR i = 1 TO n FOR j = 1 TO m IF a(i, j) > sr THEN c = c + 1 NEXT NEXT PRINT "kol-vo", c |
Тестирование выполнено в программе QB64 ( Скачать )