排队接水 洛谷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不重复

题意：

    有n个人要打水，而吝啬的学校只有一个水龙头在学生宿舍，所以我们要求出最少的每人平均消耗。

 做法：

  先排序，不用快排，快排超时，后计算时间，保留俩位小数输出。

var

  i,j,k,n:longint;
  s:real;
  a,b:array[-100..10000]of longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      read(a[i]);
      b[i]:=i;
    end;
      for i:=1 to n-1 do 
    for j:=i+1 to n do
      begin 
      if a[i]>a[j] then
      begin
        a[0]:=a[i];
        a[i]:=a[j];
        a[j]:=a[0];
        b[0]:=b[i];
        b[i]:=b[j];
        b[j]:=b[0];
      end;
      end;
    j:=n+1;    
    repeat
      dec(j);
      s:=a[11-j]*j+s;
    until j=1;
    for i:=1 to n do
      begin
        write(b[i]);
      end;


    writeln(s/n:0:2);
end.