Pagini recente » Diferente pentru problema/arbint intre reviziile 15 si 16 | Rezultatele filtrării | Borderou de evaluare (job #1521764) | Rezultatele filtrării | Cod sursa (job #7962)
Cod sursa(job #7962)
program stramosi;
var f,g:text;
v:array[0..250001] of longint;
m,n:longint;
procedure iofile;
var i,j,k,l:longint;
begin
assign(f,'stramosi.in');
reset(f);
assign(g,'stramosi.out');
rewrite(g);
readln(f,n,m);
for i:=1 to n do
read(f,v[i]);
v[0]:=0;
for j:=1 to m do
begin
readln(f,i,k);
for l:=1 to k do
i:=v[i];
writeln(g,i);
end;
close(g);
end;
begin
iofile;
end.