Pagini recente » Cod sursa (job #3205750) | Cod sursa (job #187331) | Cod sursa (job #430670) | Cod sursa (job #1998684) | Cod sursa (job #22069)
Cod sursa(job #22069)
program stramosi;
type ve= array [1..10000] of integer;
var 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);
rewrite (g);
for i:=1 to m do
begin
reset (f);
readln (f);
for j:=1 to n do
read (f,v2[j]);
for j:=1 to i do
readln (f);
read (f,p,q);
for j:=1 to q-1 do
v2[p]:=v2[v2[p]];
writeln (g,v2[p]);
end;
close (f);
close (g);
end.