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 31 | INPUT "vvedite kol-vo strok ", m INPUT "vvedite kol-vo stolbcov ", n DIM a(m, n), b(m), c(m) RANDOMIZE TIMER FOR i = 1 TO m FOR j = 1 TO n a(i, j) = INT(RND * 10 ) NEXT NEXT PRINT "ishodnyj massiv" FOR i = 1 TO m FOR j = 1 TO n PRINT a(i, j); NEXT PRINT NEXT PRINT INPUT "vvedite nomera stolbcov k,l ", k, l FOR i = 1 TO m b(i) = a(i, k) c(i) = a(i, l) NEXT PRINT "massiv iz stolbca "; k FOR i = 1 TO m PRINT b(i); NEXT PRINT PRINT "massiv iz stolbca "; l FOR i = 1 TO m PRINT c(i); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )