[erNesto]

Всем привет!) Столкнулся с проблемой: никак не могу придумать код для того, чтоб проверить есть ли масив (1d) комбинацыей натуральних чисел (то есть перестановкой)...

у меня есть задача, где надо создать масив j[i], который берется из равенства j[a[i]]=i (а[i] вводит пользователь). то есть если ввести масив А : 2 4 3 5 1, должно выдать результат : 5 1 3 2 4... всё сделал, но если написать два одинаковых числа, то одно из чисел результата будет примерно таким "13256544"....
код моей программы:

Код:

 for i:=1 to n do
  begin
   j[a[i]]:=i;
  end;

прошу помощи с кодом чтоб проверять на перестановку, либо с новым кодом, где всё делается в одном масиве (масива j - ненадо)... Спасибо!)