Сортировка, Сортировка по индексам... Опции

[Vardes]

Сейчас изучаю сортировки, и мне необходимо найти какую-нить дополнительную инфу для сортировки по ИНДЕКСАМ. Весь сайт ваш облазил, но ничего путного не нашёл. Помогите кто чем может.

[Vardes]

Всё, вроде теперь догнал. Ещё и с кодом разобрался. Вот программка, которая сортирует 10 чисел. Возможно, модераторы смогут это выложить в FAQ, а то, что-то совсем на сайте нет ничего про сортировку по ИНДЕКСАМ

Всем спасибо за помощь

Код

type index = array[1..10]  of integer;
Var i,j,k :integer;
b:index;
a:array[1..10] of integer;
begin
for i:=1 to 10 do read(a[i]);
  for i:=1 to 10 do
  b[i]:=i;
    for i:=2 to 10 do
     for j:=10 downto i do
     if a[b[j-1]]>a[b[j]] then
begin
     k:=b[j-1];
     b[j-1]:=b[j];
     b[j]:=k;
end;
for i:=1 to 10 do write(a[b[i]]);
  end.

Сообщение отредактировано: Vardes - 26.03.2006 15:33