Обработка массива

[shoroh]

Дан массив из первых n натуральных чисел( т. е. произвольная перестановка из первых n натуральных чисел ). Преобразовать массив таким образом, чтобы в нем оказалась перестановка индексных номеров при приведении исходной перестановки к натуральной( решение дать без использования вспомогательного массива ). Т. е. если, например, 4 - 1-ый элемент массива, то в результате 4 - ым элементом массива должа стать 1. Паскаль или С.

[Viktor_Ptica]

Что должно быть на выходе: этот же массив или другой?

[shoroh]

Этот же массив.

[Viktor_Ptica]

тут нужно временное хранилище в любом случае. и лучше на n-1 элементов (для предотвращения потери данных). Кстати: если попадутся одинаковые числа - то любое решение будет не правильным. Идея есть сделать вместо двух массивов один двумерный. В первом столбце исходные данные, а во втором результат. И выводить только второй столбец.

[shoroh]

Ну, я же написал, что дана перестановка из первых n натуральных чисел, т.е. элементы попарно не равны. Вспомогательный массив использовать нельзя. Я решил, используя множества уже переставленных элементов, однако задачу мне дал друг с мех-мата, знающий только с, и, с его слов, реализацию множеств в с они не прошли.
Я решал так:

program mecmattask;
const 
    n = 8;
type
    limit = 1..n;
    vector = array[ limit ] of limit;
var
    x: vector;
    y: set of limit;
    count, k, sum: integer;

procedure readvector( var x: vector );
var
    i: integer;
begin
    writeln( 'Enter ', n, ' natural numbers:' );
    for i:= 1 to n do read( x[ i ] );
end;

procedure writevector( var x: vector );
var
    i: integer;
begin
    for i := 1 to n do write( x[ i ], ' ' );
end;

procedure swap( k: limit; var count: integer );
var
    index, item, m: limit;
begin
    count := 1;
    y := y + [ k ];
    if x[ k ] <> k then begin
        index := k;
        item := x[ k ];
        repeat
            count := count + 1;
            y := y + [ item ];
            m := x[ item ];
            x[ item ] := index;
            index := item;
            item := m;
         until item = k;
         x[ k ] := index;
    end;
end;

begin
readvector( x );
sum := 0;
k := 1;
while sum <> n do begin
    swap( k, count );
    sum := sum + count;
    while k in y do k := k + 1;
end;
writevector( x );
end.

[Viktor_Ptica]

попробуйте циклом repeat пройтись по массиву. Вам понадобится счетчик (x: integer), 2 временнох хранилища элемента (i,y: integer) ну и сам массив

x:=0; //задаем начало счетчика
i:=0; // задаем начальное положение для обработки массива
repeat
 y:=mas[i]; //достаем из массива число
 mas[y]:=i; //вставляем в массив порядковый номер элемента
 i:=y;         //переходим к новому элементу, но не к i+1
x:=x+1;     // прибавляем счетчик (x++ кажется на Сях)
until x>Count(mas);  //проверяем количество операций больше количества записей в массиве

должно получиться как раз под вашу задачу. Код на Делфи, но думаю с переводом на Си проблем не возникнет