Pagini recente » Borderou de evaluare (job #367058) | Cod sursa (job #806769) | Cod sursa (job #2068522) | Cod sursa (job #803100) | Cod sursa (job #22077)
Cod sursa(job #22077)
{\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
}