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