Cod sursa(job #147615)

Utilizator adalLica Adela adal Data 3 martie 2008 11:39:31
Problema Floyd-Warshall/Roy-Floyd Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.6 kb
program royfloyd;
var f,g:text;
    i,j,k,n:longint;
    a:array[0..105,0..105] of longint;
begin
   assign(f,'royfloyd.in'); reset(f);
   assign(g,'royfloyd.out'); rewrite(g);
   readln(f,n);
   for i:=1 to n do
     for j:=1 to n do read(f,a[i,j]);

   for k:=1 to n do
     for i:=1 to n do
       for j:=1 to n do
         if (i<>j) and (a[i,k]<>0) and(a[k,j]<>0) and(a[i,j]>a[i,k]+a[k,j]) then begin
                a[i,j]:=a[i,k]+a[k,j];
         end;

   for i:=1 to n do begin
      for j:=1 to n-1 do write(g,a[i,j],' ');
      writeln(g,a[i,n]);
   end;
   close(g); close(f);
end.