洛谷 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.