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

Путь Idx1 и Idx2 индексы мин и макс элементов, причем Idx1 < Idx2 (если они равны, то делать ничего не надо, если Idx1 > Idx2 - то поменять их местами).

Тогда при цикле I от Idx1 до (Idx2 div 2) элемент A[i] будет соответсвовать A[Idx2-I+Idx1]. Просто меняешь местами.
Ответить с цитированием