Pagini recente » Cod sursa (job #2966424) | Cod sursa (job #2418873) | Cod sursa (job #1423494) | Cod sursa (job #1364766) | Cod sursa (job #22051)
Cod sursa(job #22051)
program stramosi;
type ve= array [1..10000] of integer;
var v,v2:ve;
m,n,p,q,i,j:longint;
f,g:text;
begin
assign (f,'stramosi.in');
assign (g,'stramosi.out');
reset (f);
read (f,n,m);
for i:=1 to n do
read (f,v[i]);
rewrite (g);
for i:=1 to m do
begin
read (f,p,q);
for j:=1 to n do
v2[j]:=v[j];
for j:=1 to q-1 do
v2[p]:=v2[v2[p]];
writeln (g,v2[p]);
end;
close (f);
close (g);
end.