Cod sursa(job #243017)

Utilizator cheery_g1rlHaller Emanuela cheery_g1rl Data 11 ianuarie 2009 17:53:30
Problema Floyd-Warshall/Roy-Floyd Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.68 kb
var f,g:text;
    i,j,n,k:longint;
     a:array[1..10,1..10] of longint;
begin
assign(f,'royfloyd.in'); reset(f);
assign(g,'royfloyd.out'); rewrite(g);
readln(f,n);
for i:=1 to n do
 begin
   for j:=1 to n do
      begin
        a[i,j]:=0;
        read(f,a[i,j]);
        if (i<>j)and(a[i,j]=0) then a[i,j]:=100000;
      end;
   readln(f);
 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] 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]=100000 then write(g,'0 ')
                         else write(g,a[i,j],' ');
        writeln(g);
      end;
close(f);
close(g);
end.