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

[gamordzhoba]

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

М

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

[volvo]

gamardzhoba
Вот так вот:

const
  {
    n = 9;
  }
  n = 4;

type
  arrType = array[1 .. n] of integer;

const
  {
  inver: arrType = (2, 3, 6, 4, 0, 2, 2, 1, 0);
  }
  inver: arrType = (2, 0, 1, 0);

var
  i, j: integer;
  perest: arrType;

begin
  for i := n downto 1 do begin

    move( perest[inver[i]+1], perest[inver[i]+2],
          (n-(inver[i]+2)+1)*sizeof(integer) );
    perest[inver[i]+1] := i;

    { Печатаем промежуточные результаты }
    for j := 1 to n do
      write(perest[j]:4);
    writeln;

  end;

  { Окончательный результат: }
  for i := 1 to n do
    write(perest[i]:4);
  writeln;
end.

Тестировалось с закомментированными значениями тоже (пример взят из Кнута)...