排队接水

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