Pagini recente » Cod sursa (job #1291159) | Cod sursa (job #264897) | Cod sursa (job #1155285) | Cod sursa (job #2759058) | Cod sursa (job #1206451)
program royflowd;
type
tabel=array [0..501,0..501] of longint;
var
t:tabel;
n,k,i,j: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 t[i,j]>t[i,k]+t[k,j] 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.