Description
某工厂发现厂里的机器在生产产品时要消耗大量的原材料，也就是说，有大量的原材料变成了废物。因此厂里想找出消耗原材料最大的一条生产线路进行改造，以降低成本。厂里的生产线路是一个有向无环网络，有N台机器分别代表网络中的N个结点。弧< I,j >(i < j)表示原材料从机器i传输到机器j的损耗数量。
Input
第一行是两个整数N，M（N<=100,M<=1000），分别表示网络的结点个数和弧数。第二行至M+1行，每行三个整数A，B，C，表示弧上的损耗为C。
Output
仅一个整数，为损耗最大的线路的损耗量。
Sample Input
5 5
1 2 2 2 4 9 1 3 7 3 4 1 4 5 6 Sample Output17
Floyd改进版，将小于号改为大于号
代码如下：
var a:array [1..100,1..100] of longint; f:array [1..100,1..100] of boolean; n,m,max:longint;procedure init;var i,j,x,y,z:longint;begin readln(n,m); max:=0; for i:=1 to m do begin read(x,y,z); a[x,y]:=z; f[x,y]:=true; if z>max then max:=z; end;end;procedure main;var i,j,k:longint;begin for k:=1 to n do for i:=1 to n do for j:=1 to n do if (k<>i) and (k<>j) and (i<>j) and (f[i,k]) and (f[k,j]) then if a[i,k]+a[k,j]>a[i,j] then begin a[i,j]:=a[i,k]+a[k,j]; f[i,j]:=true; if a[i,j]>max then max:=a[i,j]; end; write(max);end;begin init; main;end.