Cod sursa(job #151952)

Utilizator Clau2000GOREA CLAUDIU-CRISTIAN Clau2000 Data 8 martie 2008 20:00:02
Problema Floyd-Warshall/Roy-Floyd Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.79 kb
type matrice=array[1..100,1..100]of longint;
var f,g:text;
    a:matrice;
    i,j,k,n:integer;


begin
     assign(f,'royfloyd.in');
     assign(g,'royfloyd.out');
     reset(f);
     rewrite(g);
     read(f,n);
     for i:=1 to n do
         for j:=1 to n do
         begin
             read(f,a[i,j]);
             if a[i,j]=0 then a[i,j]:=1000000;
         end;
     for k:=1 to n do
         for i:=1 to n do
             for j:=1 to n do
                 if (a[i,j]>a[i,k]+a[k,j]) and(i<>j)
                    then a[i,j]:=a[i,k]+a[k,j];
     for i:=1 to n do
     begin
          for j:=1 to n do
              if a[i,j]=1000000 then write(g,0,' ')
                 else write(g,a[i,j],' ');
          writeln(g);
     end;




     close(f);
     close(g);
end.