Cod sursa(job #144117)

Utilizator free2infiltrateNezbeda Harald free2infiltrate Data 27 februarie 2008 11:24:14
Problema Floyd-Warshall/Roy-Floyd Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.53 kb
program roy;
var A : array [1..100,1..100] of word;
    n,i,j,l : shortint;
    f : text;
begin
assign(f,'royfloyd.in');
reset(f);

readln(f,n);

for i := 1 to n do
for j := 1 to n do
read(f,A[i,j]);

close(f);


for l := 1 to n do
for i := 1 to n do
for j := 1 to n do
if (i<>j) and (l<>j) and (i<>l) then
        if A[i,j] > A[i,l]+A[l,j] then A[i,j] := A[i,l]+A[l,j];


assign(f,'royfloyd.out');
rewrite(f);
for i := 1 to n do begin
for j := 1 to n do
write(f,A[i,j],' ');
writeln(f);
end;

close(f);

end.