Pagini recente » Cod sursa (job #1016562) | Cod sursa (job #2558953) | Cod sursa (job #871066) | Cod sursa (job #85017) | Cod sursa (job #1405457)
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] 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.