洛谷1223排队接水

题目

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

题解

先排序，然后计算总等待时间，最后输出顺序和平均等待时间。

代码

var
  n,i,j,k:longint;
  a,b:array[1..1000]of longint;
  sum:real;

procedure qsort(l,r:longint);
var
  i,j,key,t,c:longint;
begin
  if l>=r then exit;
  i:=l; j:=r;
  c:=l+random(r-l+1);
  key:=a[c];
  repeat
    while (a[i]<key) do inc(i);
    while (a[j]>key) do dec(j);
    if i<=j then
     begin
      t:=a[i];a[i]:=a[j];a[j]:=t;
      t:=b[i];b[i]:=b[j];b[j]:=t;
      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;
  randomize;
  qsort(1,n);
  k:=n;
  for i:=1 to n do
    begin
      write(b[i],' ');
      dec(k);
      sum:=sum+a[i]*k;
    end;
  writeln;
  writeln(sum/n:0:2);
end.