Cod sursa(job #1405461)

Utilizator ButnaruButnaru George Butnaru Data 29 martie 2015 11:44:31
Problema Floyd-Warshall/Roy-Floyd Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.56 kb
program royfloyd;
type
tabel=array[0..101,0..101] of longint;
var
t:tabel;
i,j,n,k:longint;
f1,f2:text;
begin
assign (f1,'royfloyd.in');
assign (f2,'royfloyd.out');
reset (f1);
rewrite (f2);
readln (f1,n);
for i:=1 to n do
 for j:=1 to n do
 read (f1,t[i,j]);
for k:=1 to n do
 for i:=1 to n do
  for j:=1 to n do
  if (i<>j) and (t[i,k]>0) and (t[k,j]>0) then
  if (t[i,j]>t[i,k]+t[k,j]) or (t[i,j]=0) then t[i,j]:=t[i,k]+t[k,j];
for i:=1 to n do begin
 for j:=1 to n do
 write (f2,t[i,j],' ');
writeln (f2);
end;
close (f1);
close (f2);
end.