Cod sursa(job #584807)

Utilizator vladvaldezVlad Dimulescu vladvaldez Data 26 aprilie 2011 19:11:08
Problema Stramosi Scor 60
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.41 kb
type stramos=record
    x,y:integer;
    end;
var v:array[1..250000]of integer;
    a:array[1..300000]of stramos;
    n,m,i,j,xx:longint;
begin
assign(input,'stramosi.in');reset(input);
assign(output,'stramosi.out');rewrite(output);
read(n,m);
for i:=1 to n do read(v[i]);
for i:=1 to m do begin
read(a[i].x,a[i].y);
xx:=v[a[i].x];
for j:=1 to a[i].y-1 do
xx:=v[xx];
writeln(xx);
end;
close(output);
end.