Показать сообщение отдельно
  #2  
Старый 25.05.2009, 21:02
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

вариант - сделать в несколько ходов.
1. Переписать индексы эдементов в одномерный массив.
2. Отсортировать этот массив по убыавнию значений элементов.
3. Заменить элементы по диагонали на соотв. по отсортированному массиву.

Код сейчас писать некогда, если очень нужно, то может позже или завтра.
Ответить с цитированием