99 баллов выручайте кто с информатикой дружит . Нужно программу в Бейсике написать.
Дана матрица A (N,M). получите вектор X(M) Равный P й строки матрицы и вектор y N РАВНЫЙ Q МУ СТОБЦУ МАТРИЦЫ

Microsoft QBasicm = 10n = 15DIM a(1 TO m, 1 TO n) AS INTEGERDIM x(1 TO n) AS INTEGER, y(1 TO m) AS INTEGERRANDOMIZE TIMERCLSPRINT "Исходная матрица"FOR i = 1 TO m   FOR j = 1 TO n      a(i, j) = INT(99 * RND)      PRINT USING "###"; a(i, j);   NEXT j   PRINTNEXT iINPUT "Строка для Х и столбец для Y (через запятую): ", p, qPRINT "Вектор-строка Х"FOR j = 1 TO n   x(j) = a(p, j)   PRINT USING "###"; x(j);NEXT jPRINTPRINT "Вектор-столбец Y"FOR i = 1 TO m   y(i) = a(i, q)   PRINT USING "###"; y(i);NEXT iPRINTТестовое решение:Исходная матрица 51 91 87 95 48 54 64 92  2 91 84 56 60 87  6 96 55 81 11 46 42 38 14 40 73 33 97 16 90 65 65 41 52  1 30 62 68 32 16 86 80 72 94 76 50 63 44 84 83 19 29 95 75 88  9 13 78 45 72 51 98 98 93 70 19 36 16 21 38 87 59 26 48 11 52 77 24 11 91 68 49 72 25 39 54 31 55 57 92 55 79 19 37 67 40 72 91 76 13 75 47 48 12 64 44 87 24 62 73 58 65  2 90 21 63 79 67 92 68 27 57 42 82 21 94  1 19  1 12  1 84 27 86 42 89 54 12 78 75 33 87 34 78 38 50 40 11 19  6  2Строка для Х и столбец для Y (через запятую): 4,8Вектор-строка Х 63 44 84 83 19 29 95 75 88  9 13 78 45 72 51Вектор-столбец Y 92 14 32 75 21 25 76 90  1 78