Cod sursa(job #584807)
| Utilizator | 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.