题目描述
有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不重复
排序+贪心:
1.从小到大排,因为耗时大的人往后面,耗时短的在前面,是时间的最优解。
2.求出总时长。
时间复杂度:O(n)
var
a:array [1..1000] of real;
b:array [1..1000] of longint;
i,n:longint;
s:real;
procedure qsort(l,r:longint);
var
i,j,t:longint;
key,temp:real;
begin
if l>=r then exit;
i:=l;j:=r;
key:=a[(l+r) div 2];
repeat
while (a[i]<key) do inc(i);
while (a[j]>key) do dec(j);
if i<=j then
begin
temp:=a[i];a[i]:=a[j];a[j]:=temp;
t:=b[i];b[i]:=b[j];b[j]:=t;
inc(i); dec(j);
end;
until i>j;
if l<j then qsort(l,j);
if i<r then 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 s:=s+a[i]*(n-i);
for i:=1 to n do write(b[i],' ');
writeln;
write(trunc((s/n)*10000+0.5)/10000:0:2);
end.