[stp008]

Элементы массива QW(k) случайно перемешаны. В массиве M(k) хранятся номера массива QW(k) до перемешивания. Восстановить исходное состояние массива QW(k).

Код:

var q:array [1..100] of integer;
m,x,i,k:integer;
Begin
write('k = ');
readln(k);
readln;
randomize;
for i:=1 to k do q[i]:=i;
for i:=1 to k do writeln(q[i]:3);
writeln;
readln;
for i:=1 to k-1 do begin
m:=random(k-i-1)+i+1;
x:=q[i]; q[i]:=q[m]; q[m]:=x
end;
for i:=1 to k do writeln(q[i]:3);
readln
End.

Сделал первую часть - Элементы массива QW(k) случайно перемешаны.
Дальше не знаю. Что такое номера массива? Номера элементов? А элементы где хранятся тогда? В общем запутался. Есть идея просто приравнять массив М(к) с массивом QW(k) до перемешивания и в конце приравнять уже QW(k) с М(k).