Pagini recente » Cod sursa (job #706306) | Cod sursa (job #37952) | Cod sursa (job #560352) | Cod sursa (job #904487) | Cod sursa (job #1420311)
program royfloyd;
type tabel=array[0..101,0..101] of longint;
var t:tabel;
n,i,j,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.