运油车问题

来源：百度知道 编辑：UC知道 时间：2024/06/08 13:01:53
3、贪婪法：有一个运油车队，共N台车，同时在一个油库等待装油，因各车的油罐大小不一，需要灌满油的时间也不一样。该油库有两个相同的龙头，应如何安排各车装油顺序，才能使这个车队所有车装满油时，各车总的等待时间最少？最少时间是多少。N及N辆车要用的时间均由键盘输入
pascal

Program oilwait;
const
x=100;
var
a,b:array[1..x] of integer;
n,i,j:1..x;
begin
readln(n);
for i := 1 to n do
read(a[i]);
fillchar(b,sizeof(b),n);
for i := 1 to n do
for j := 1 to n do
if a[j]<a[i] then
dec(b[i])
for i := n downto 1 do
for j := 1 to n do
if b[j]=i then
write(j,' ');
end.