Сортировка диагональных элементов матрицы

[СтудПом]

Увидел очередную мольбу студента про сортировку матрицы.
Придумал задачу, сам не могу сообразить:
-Отсортировать (переместить) строки матрицы, так чтоб диагональные элементы стали отсортированы.

[Alex11223]

А чего тут соображать? Просто реализовать операции получения значения элемента и перестановки соответствующим образом.

Элемент — строка. Значение — какой-то ее столбец (наверно имеется в виду диагональ в исходной матрице?).

[Аватар]

10 9
11 9

Её не отсортируешь по возрастанию элементов главной диагонали

[СтудПом]

Сообщение от Alex11223

Просто реализовать операции получения значения элемента

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

Сообщение от Аватар

10 9
11 9

Её не отсортируешь по возрастанию элементов главной диагонали

Отсортировать можно всё. Но ваш пример показывает, что задача поставлена неточно. Спасибо.

[Аватар]

Отсортировать можно всё

Нет. Отсортируй ту матрицу по возрастанию элементов главной диагонали слева направо перетаскиванием строк. Задача в исходной постановке не всегда имеет решение

Насчет всё. Как сравнить 3км и 2кг, что больше?

[СтудПом]

Да, правильно. Ступил.

1 4    2 3
2 3    1 4

Начал думать, что раз универсальный алгоритм сработает (там всего лишь подправить сравнение), то всё ОК, а оказалось - хрен :-/

[eoln]

Сообщение от Аватар

Как сравнить 3км и 2кг, что больше?

Могучий микрософт ещё не то умеет )

if 3км GTR 2кг echo brrrr

[newerow1989]

Код сочинил, оказывается решения не существует!

var i,j:integer;
    p:array[1..10,1..10] of integer;
    z:array[1..10] of integer;
    d:boolean;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   Repeat
      d:=true;
      For i:=1 to 9 do
         If p[i,i]>p[i+1,i+1] then
         begin
            d:=false;
            For j:=1 to 10 do
               z[j]:=p[i,j];
            For j:=1 to 10 do
               p[i,j]:=p[i+1,j];
            For j:=1 to 10 do
               p[i+1,j]:=z[j];
         end;
   Until d;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.

[СтудПом]

Спасибо, уже давно дошло, выше по тексту