城市交通

题目描述
　　有n个城市，编号1~n，有些城市之间有路相连，有些则没有，有路则当然有一个距离。现在规定只能从编号小的城市到编号大的城市，问你从编号为1的城市到编号为n的城市之间的最短距离是多少？

输入输出格式
输入格式：
先输入一个n，表示城市数，n小于100。
下面的n行是一个n*n的邻接矩阵map[i,j],其中map[i,j]=0表示城市i和城市j之间没有路相连，否则为两者之间的距离。

输出格式：
一个数，表示最少要多少时间。
输入数据保证可以从城市1飞到城市n。

输入输出样例
输入样例
11
0 5 3 0 0 0 0 0 0 0 0
5 0 0 1 6 3 0 0 0 0 0
3 0 0 0 8 0 4 0 0 0 0
0 1 0 0 0 0 0 5 6 0 0
0 6 8 0 0 0 0 5 0 0 0
0 3 0 0 0 0 0 0 0 8 0
0 0 4 0 0 0 0 0 0 3 0
0 0 0 5 5 0 0 0 0 0 3
0 0 0 6 0 0 0 0 0 0 4
0 0 0 0 0 8 3 0 0 0 3
0 0 0 0 0 0 0 3 4 3 0

如图：

输出样例
13

分析说明
f[i,j]为输入的坐标
这题不是很难，顺推和逆推都行，重点在于理解它的输入。

---

var
  i,j,n,ans,min,min1:longint;
  f:array[0..100,0..100]of longint;
begin
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      read(f[i,j]);
  for j:=1 to n do
  begin
    min:=maxlongint;
    for i:=j to n do
      if (f[i,j]>0)and(f[i,j]<min) then begin min:=f[i,j]; min1:=i-1; end;
    if min<maxlongint then begin inc(ans,min); j:=min1; end;
  end;
  writeln(ans);
end.