【寒假任务】 洛谷1223 排队接水

问题描述
有n个人在一个水龙头前排队接水，编号为1-n，给出每个人的接水时间，求一种排队方式让平均等待时间最少，输出排队方式（每个人的编号）及平均等待时间。
样例输入
10
56 12 1 99 1000 234 33 55 99 812
样例输出
3 2 7 8 1 4 9 6 10 5
291.90
算法讨论
贪心，让每个人的等待时间都最少即可。时间复杂度O(n log n)。

const
  maxn=1000;
var
  a:array[1..maxn,1..2] of longint;
  i,j,n:longint;
  s,ans:real;

procedure qsort(l,r:longint);
var