Перестановка Опции

[gamordzhoba]

Была дана перестановка, по ней построили таблицу инверсий. надо востановить перестановку. всего N целых чисел A1, A2, ..., AN, где число Ak (0 <= Ak < N) означает,
что ровно A k элементов, больших чем k, стоит до числа k в перестановке.

М

Заголовок темы должен быть информативным ! В следующий раз удалю ! klem4

[Atos]

Из таблицы инверсий, например, 22010,
получаем исходную перестановку:
12345
35124
Если вторую строку перестановки представлять массивом В размера N , то код будет примерно такой

for i:=1 to N do B[i]:=0;
for i:=1 to N do 
  begin
  k:=0;
  j:=0;
  while k<=A[i] do
     begin
     inc(j);
     if B[j]=0 then inc(k);
     end;
  B[j]:=i;
  end;

Подправьте, если что не так, пишу сейчас без компилятора.