Cod sursa(job #22069)

Utilizator cosmyudreaudrea cosmin cosmyudrea Data 25 februarie 2007 15:47:05
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.