过河问题 (Standard IO)

Description

　　在一个大晴天，Oliver与同学们一共N人出游，他们走到一条河的东岸边，想要过河到西岸。而东岸有一条小船。
　　船太小了，一次只能乘坐两人。每个人都有一个渡河时间T，船划到对岸的时间等于船上渡河时间较长的人所用时间。
　　现在已知N个人的渡河时间T，Oliver想要你告诉他，他们最少要花费多少时间，才能使所有人都过河。
　　注意，只有船在东岸（西岸）时东岸（西岸）的人才能坐上船划到对岸。

Input

　　输入文件第一行为人数N，以下有N行，每行一个数。
　　第i+1行的数为第i个人的渡河时间。

Output

　　输出文件仅包含一个数，表示所有人都渡过河的最少渡河时间。

题解
对于每次过河，有两种走法。最小的时间把人运过去或最小和次小的时间把人运过去，就可以得f[i]:=min(f[i-1]+a[1]+a[i],f[i-2]+a[i]+a[1]+a[2]*2);

代码

var
  n:longint;
  a,f:array [0..100001] of longint;
procedure init;
var
  i:longint;
begin
  readln(n);
  for i:=1 to n do
    readln(a[i]);
end;

function min(o,p:longint):longint;
begin
  if o
then exit(o);
  exit(p);
end;

procedure qsort(l,r:longint);
var
   i,j,t,m:longint;
begin
  i:=l; j:=r;
  m:=a[(l+r) div 2];
  repeat
    while a[i]do inc(i);
    while a[j]>m do dec(j);
    if i<=j then
      begin
        t:=a[i]; a[i]:=a[j]; a[j]:=t;
        inc(i); dec(j);
      end;
  until i>j;
  if lthen qsort(l,j);
  if ithen qsort(i,r);
end;

procedure main;
var
  i:longint;
begin
  f[1]:=a[1]; f[2]:=a[2];
  for i:=3 to n do
    f[i]:=min(f[i-1]+a[1]+a[i],f[i-2]+a[i]+a[1]+a[2]*2);
  write(f[n]);
end;

begin
  init;
  qsort(1,n);
  main;
end.