租用游艇

题目：

题目描述

长江游艇俱乐部在长江上设置了n 个游艇出租站1，2，…，n。游客可在这些游艇出租站租用游艇，并在下游的任何一个游艇出租站归还游艇。游艇出租站i 到游艇出租站j 之间的租金为r(i,j),1<=i<=j<=n。试设计一个算法，计算出从游艇出租站1 到游艇出租站n 所需的最少租金。

作者思路：刚学会最短路，拿这道题练练手。f[1,j]:=min{f[1,i]+f[i,j]};

代码：

uses math;
var n,i,j:longint;
f:array[0..201,0..201] of longint;
begin
read(n);
for i:=1 to n-1 do
for j:=i+1 to n do
read(f[i,j]);
for i:=1 to n-1 do
for j:=i+1 to n do
f[1,j]:=min(f[1,j],f[1,i]+f[i,j]);
write(f[1,n]);
end.