В двумерном массиве сделать сортировку каждого ряда по убыванию - QBasic

Формулировка задачи:

В двумерном массиве сделать сортировку каждого ряда по убыванию.

CLS
  PRINT
DIM X(3, 6)
FOR i = 1 TO 3
  FOR j = 1 TO 6
  X(i, j) = INT(RND * 40 – 20)
  PRINT USING “####”; X(i, j);
NEXT: PRINT
NEXT: PRINT

На выходе имеем:

   8     1     3    -9   -8   10
-20   10   12     8  -19   -4
 14   11    -6   18   14  -18

А как сделать сортировку хотя бы 1-го ряда? Может тогда и со 2-м и 3-м рядом получится? В одномерном массиве сортировки делать наловчились, а вот в двумерном массиве – проблема.

Решение задачи: «В двумерном массиве сделать сортировку каждого ряда по убыванию»

Листинг программы

CLS
RANDOMIZE TIMER
 
DIM x(3, 6)
 
FOR i = 1 TO 3
FOR j = 1 TO 6
   x(i, j) = INT(40 * RND - 20)
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO 3
   FOR k = 1 TO 5
   FOR j = k + 1 TO 6
      IF x(i, k) < x(i, j) THEN
         SWAP x(i, k), x(i, j)
      END IF
   NEXT j
   NEXT k
NEXT i
 
FOR i = 1 TO 3
FOR j = 1 TO 6
   PRINT USING "####"; x(i, j);
NEXT: PRINT
NEXT

Объяснение кода листинга программы

Создается двумерный массив x(3,6).
Заполняется массив случайными числами от -20 до 20.
Выводится на экран заполненный массив.
Производится сортировка каждого ряда массива по убыванию.
Выводится на экран отсортированный массив.