Cod sursa(job #425190)

Utilizator floreabogdan1Florea Ioan Bogdan floreabogdan1 Data 25 martie 2010 16:07:08
Problema Schi Scor 25
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.69 kb
program skiclass;
type vec=array [1..200] of integer;
var f,g:TEXT; i,j,ind,aux,aux1,loc, n,m:integer;  a,b:vec;
begin
ind:=0;
assign(g,'schi.out');
assign (f,'schi.in');
reset(f);
readln(f,n);

for i:=1 to n do
    begin
      readln(f,loc);
      a[i]:=loc;
      b[i]:=i;

    end;
 close(f);
   for i:=1  to n-1 do
       for j:=i+1 to n do
        begin
        if a[i]>=a[j] then
         begin
          a[i]:=a[i]+1;
          aux:=a[j];
          a[j]:=a[i];
          a[i]:=aux;
          aux1:=b[j];
          b[j]:=b[i];
          b[i]:=aux1;
         end;
        end;
rewrite(g);
for i:=1 to n do
  begin
    writeln(g,b[i]);

  end;
close(g);
end.