Элементы массива QW(k) случайно перемешаны. В массиве M(k) хранятся номера массива QW(k) до перемешивания. Восстановить исходное состояние массива QW(k).
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | 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).