排队接水问题 [复制链接]

有N个人在一个水龙头前排队接水, 每个人接水的时间有长有短为Ti, 编程找到一种这N个人排队的顺序,使平均等待时间达到最小.

var n,i,j,t:integer;
  k:real;
  a,b:array[1..1000] of integer;
begin
readln(n);
for i:=1 to n do
begin read(a);b:=i;end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a>a[j] then
begin
t:=a;a:=a[j];a[j]:=t;
t:=b;b:=b[j];b[j]:=t;
end;
t:=0;k:=0;
for i:=n downto 1 do
begin
inc(t);
k:=k+a[t]*i;
end;
for i:=1 to n do write(b,' ');
writeln(k/n:0:2);
end.
不知道对不对？

简单吧！