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

Для правильного результата тебе надо кроме swap элементов массива индексов делать тоже самое и для элементов исходного массива.
Код:
{
  temp = idx[i];  
  idx[i] = idx[j];
  idx[j] = temp;
       
  // Добавлено:
  temp = l[i];
  l[i] = l[j];
  l[j] = temp;
}
Ответить с цитированием