Cod sursa(job #22072)
Utilizator | Data | 25 februarie 2007 15:50:21 | |
---|---|---|---|
Problema | Stramosi | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.43 kb |
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.