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

题解：
首先排序，再求平均值，保留两位小数。

var i,j,n,temp:longint;
t,a:array[1..1000] of longint;
z: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
temp:=t[i];t[i]:=t[j];t[j]:=temp;
temp:=a[i];a[i]:=a[j];a[j]:=temp;
end;
for i:=1 to n do write(a[i],’ ‘);
writeln;
temp:=0;
for i:=n-1 downto 0 do
begin
inc(temp);
z:=z+t[temp]*i;
end;
writeln(z/n:0:2);
end.