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.
