洛谷 P1223 排队接水

题目描述

有n个人在一个水龙头前排队接水，假如每个人接水的时间为Ti，请编程找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。

输入输出格式

输入格式：
输入文件共两行，第一行为n；第二行分别表示第1个人到第n个人每人的接水时间T1，T2，…，Tn，每个数据之间有1个空格。

输出格式：
输出文件有两行，第一行为一种排队顺序，即1到n的一种排列；第二行为这种排列方案下的平均等待时间(输出结果精确到小数点后两位)。

输入输出样例

输入样例#1：
10
56 12 1 99 1000 234 33 55 99 812
输出样例#1：
3 2 7 8 1 4 9 6 10 5
291.90
说明

n<=1000

ti<=1e6，不保证ti不重复

分析：按时间从小到大排序，然后统计一下就好了。（不会的问hjw）。

注意：统计的那个要用int64.

代码：

var a,b:array [1..1002] of longint; n,i:longint; ans:int64;procedure qsort(l,r:longint);  var    i,j,key,temp,key1:longint;  begin    if l>=r then exit;    i:=l;j:=r;    key:=a[(l+r) shr 1];    key1:=b[(l+r) shr 1];    repeat      while  (a[i]<key) or (a[i]=key) and (b[i]<key1) do inc(i);      while  (a[j]>key) or (a[j]=key) and (b[j]>key1) do dec(j);      if i<=j then      begin        temp:=a[i];a[i]:=a[j];a[j]:=temp;        temp:=b[i];b[i]:=b[j];b[j]:=temp;        inc(i);dec(j);      end;    until i>j;    qsort(l,j);    qsort(i,r);  end;begin readln(n); for i:=1 to n do  begin   read(a[i]);   b[i]:=i;  end; qsort(1,n); for i:=1 to n do  write(b[i],' '); writeln; for i:=1 to n do   ans:=ans+(n-i)*a[i]; write(ans/n:0:2);end.