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 | CLS INPUT "vveddite stroli"; m INPUT "vvedite stolbzi"; n DIM a(m, n) FOR i = 1 TO m FOR j = 1 TO n PRINT "vvedite element, stolbez ="; i; "stroka ="; j INPUT a(i, j) NEXT NEXT FOR i = 1 TO m b = 0 FOR j = 1 TO n IF a(i, j) < 0 THEN b = 1 NEXT IF b <> 0 THEN k = k + 1 NEXT CLS PRINT "massiv" FOR i = 1 TO m FOR j = 1 TO n PRINT a(i, j); NEXT PRINT NEXT PRINT "otriz strok ="; k |
Тестирование выполнено в программе QB64 ( Скачать )