Cod sursa(job #425155)

Utilizator aliveLechintan Adrian alive Data 25 martie 2010 15:42:51
Problema Schi Scor 60
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
var
 v:array[1..30000] of integer;
 x,n,i,j:integer;
 f,g:text;


begin

assign(f,'schi.in');assign(g,'schi.out');
reset(f);
read(f,n);
for i:=1 to n do
 v[i]:=0;

for i:=1 to n do
 begin
 read(f,x);
 for j:=n-1 downto x do
   v[j+1]:=v[j];
 v[x]:=i;
 end;

close(f);
rewrite(g);
for i:=1 to n do
 writeln(g,v[i]);
close(g);

end.