Дана матрица целых чисел X(n,m). Упорядочить ее столбцы по убыванию их первых элементов. Вывести исходную и полученную матрицы. Значения буквенных переменных вводить с клавиатуры-QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
INPUT n, m
DIM x(n, m)
RANDOMIZE TIMER
FOR i = 1 TO n
        FOR j = 1 TO m
                x(i, j) = INT(RND * 89) + 10
                PRINT x(i, j);
        NEXT j: PRINT
NEXT i: PRINT
  
FOR j = 1 TO m
        FOR i = 1 TO m - 1
                IF x(1, i) > x(1, i + 1) THEN
                        FOR q = 1 TO n
                                SWAP x(q, i), x(q, i + 1)
                        NEXT q
                END IF
        NEXT i
NEXT j
FOR i = 1 TO n
        FOR j = 1 TO m
                PRINT x(i, j);
        NEXT j: PRINT
NEXT i

Похожие записи/страницы: