洛谷 1223——排队接水（贪心）

题目描述

有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不重复

---

多关键词排序，先将排列输出出来。
然后求等待时间，最后输出要除以n，保留两位小数。

---

代码如下：

var n,i,j,p:longint;
    t,a:array[1..10000]of longint;
    zh:real;
begin
  readln(n);
  for i:=1 to n do 
    begin 
      read(t[i]);
      a[i]:=i;
    end;
  for i:=1 to n-1 do
  for j:=i+1 to n do
    if t[i]>t[j] then 
      begin 
        p:=t[i];t[i]:=t[j];t[j]:=p;
        p:=a[i];a[i]:=a[j];a[j]:=p;
      end;
  for i:=1 to n do write(a[i],' ');
  writeln;
  p:=0;
  for i:=n-1 downto 0 do
    begin
      p:=p+1;
      zh:=zh+t[p]*i;
    end;
  write((zh/n):0:2);
  readln;
end.