1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | DIM a( 5 , 3 ) INPUT "vvedite chislo ", n FOR i = 1 TO 5 FOR j = 1 TO 3 INPUT "vvedite element ", a(i, j) NEXT NEXT PRINT "massiv" FOR i = 1 TO 5 FOR j = 1 TO 3 PRINT a(i, j); " "; NEXT PRINT NEXT FOR i = 1 TO 5 FOR j = 1 TO 3 s = s + a(i, j) NEXT IF s > n THEN m = m + 1 s = 0 NEXT PRINT "takih strok="; m |
Тестирование выполнено в программе QB64 ( Скачать )