Cod sursa(job #179585)

Utilizator DiaconuDiaconu Loredana Diaconu Data 16 aprilie 2008 09:25:28
Problema Floyd-Warshall/Roy-Floyd Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.56 kb
var      f,g:text;
         v:array[1..100,1..100] of integer;
         i,j,n,k:integer;
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 begin
  read(f,v[i,j]);
  if v[i,j]=0 then if i=j then v[i,j]:=0
                          else v[i,j]:=maxint;
 end;
for k:=1 to n do
 for i:=1 to n do
  for j:=1 to n do
   if v[i,j]>v[i,k]+v[k,j] then v[i,j]:=v[i,k]+v[k,j];
for i:=1 to n do begin
 for j:=1 to n do
  write(g,v[i,j],' ');
 writeln (g);
end;
close(f);close(g);
end.