Перестановка индексов

[Jevshot]

Создать числовой массив A[1..m]. В дополнительном массиве сделать такую перестановку индексов i1,i2,...,im, чтобы A[i1]<=A[i2]<=...<=A[im].

[p51x]

Ну отсортируйте исходный массив, а новые индексы запишите.

[Serge_Bliznykov]

Ну отсортируйте исходный массив, а новые индексы запишите.

не-не-не...
исходный массив трогать НЕЛЬЗЯ. нужно получить новый, где есть только индексы.

Нужно просто напросто в алгоритме сортировки переставлять не сами элементы, а их индексы.

примерно так

  for i:=1 to m do B[i]:=i; {начальное заполнение индексов}

  {сортировка индексов массива}
  for i:=1 to m-1 do
    for j:=i+1 to m do
      if A[B[i]]>A[B[j]] then
        begin
          tempIndex:=B[i];
          B[i]:=B[j];
          B[j]:=tempIndex
        end;

p.s. не проверял!

[Jevshot]

Огромное спасибо за помощь