Сортирование

[Travi the Hedgehog]

Привет всем. Мне надо зачётную сдавать, да засел на одной задаче. Помогите, кто сможет.
Задача: Отсортируйте столбцы матрицы по убыванию.

Сортировка у меня идёт, но сортируется вся матрица, а по заданию как сделать - не догадываюсь. Помогите пожалуйста! Заранее спасибо!

[TinMan]

Я чет не врубаюсь, как тебе удалось случайно отсортировать всю матрицу, да еще и неизвестно, по какому параметру )).
Вот тебе сортировка внутри столбцов.

var
  a: array[1..m,1..n] of integer;
......
for j:=1 to n do
  for i:=2 to m do
    for k:=m downto i do if a[i]>a[i-1] then begin
      b:= a[i];
      a[i]:= a[i-1];
      a[i-1]:= b
    end;

[Travi the Hedgehog]

Дело в том, что матрица исходная должна выглядеть следующим образом:
Пример:
Вводимая матрица


47 -34 23
66 62 -15
24 1 17

Выводимая матрица
66 62 23
47 1 17
24 -34 -15

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

[TinMan]

Сообщение от Travi the Hedgehog

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

Ну, непер тебе, сочувствую.. Исправить твою прогу не могу - телепатилку дома забыл )).

Сделай, как я написал. И будет тебе щасье!