排队接水

var
 a:array[0..1000,1..2]of longint;
 i,j,n,ans:longint;
 sum:int64;
begin
 read(n);
 for i:=1 to n do
 begin
  read(a[i,1]);
  a[i,2]:=i;
 end;
 for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[i,1]>a[j,1] then
  begin
   a[0]:=a[i];
   a[i]:=a[j];
   a[j]:=a[0];
  end;
 for i:=1 to n do
  write(a[i,2],' ');
 for i:=2 to n do
  for j:=1 to i-1 do
  sum:=sum+a[j,1];
 writeln;
 write(sum/n:0:2);
end.