Cod sursa(job #144660)

Utilizator CezarMocanCezar Mocan CezarMocan Data 27 februarie 2008 20:43:00
Problema Floyd-Warshall/Roy-Floyd Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.69 kb
var v,x:array[1..100,1..100] of longint;
    n,i,j,k:longint;

begin
assign(input,'royfloyd.in');reset(input);
assign(output,'royfloyd.out');rewrite(output);
readln(n);
for i:=1 to n do
        for j:=1 to n do
                read(v[i,j]);
x:=v;
for k:=1 to n do
        for i:=1 to n do
                for j:=1 to n do
                        if (v[i,k]<>0)and(v[k,j]<>0)and(i<>j) then
                                if (v[i,k]+v[k,j]<v[i,j])or(v[i,j]=0) then
                                        v[i,j]:=v[i,k]+v[k,j];
for i:=1 to n do
        begin
        for j:=1 to n do
                write(v[i,j],' ');
        writeln;
        end;
close(input);close(output);
end.