Cod sursa(job #22077)

Utilizator cosmyudreaudrea cosmin cosmyudrea Data 25 februarie 2007 15:53:50
Problema Stramosi Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.65 kb
{\rtf1\ansi\ansicpg1250\deff0\deflang1048{\fonttbl{\f0\fnil\fcharset0 ;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\lang1033\f0\fs20 program stramosi;\par
type ve= array [1..10000] of integer;\par
var v,v2:ve;\par
    m,n,p,q,i,j:longint;\par
    f,g:text;\par
begin\par
assign (f,'stramosi.in');\par
assign (g,'stramosi.out');\par
reset (f);\par
read (f,n,m);\par
for i:=1 to n do\par
read (f,v[i]);\par
rewrite (g);\par
for i:=1 to m do\par
begin\par
read (f,p,q);\par
for j:=1 to n do\par
v2[j]:=v[j];\par
for j:=1 to q-1 do\par
v2[p]:=v2[v2[p]];\par
writeln (g,v2[p]);\par
end;\par
close (f);\par
close (g);\par
end.\par
}