Pagini recente » Cod sursa (job #501312) | Cod sursa (job #2323108) | Cod sursa (job #1481975) | Cod sursa (job #3175011) | Cod sursa (job #425190)
Cod sursa(job #425190)
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.