Pagini recente » Cod sursa (job #2785746) | Cod sursa (job #2620329) | Cod sursa (job #69693) | Cod sursa (job #2017916) | Cod sursa (job #409250)
Cod sursa(job #409250)
uses math;
const tfi='royfloyd.in';
tfo='royfloyd.out';
maxn=111;
var fi,fo:text;
i,j,k,n:longint;
a:array[0..maxn,0..maxn] of longint;
begin
assign(Fi,tfi); reset(fi);
assign(Fo,tfo); rewrite(fo);
read(fi,n);
for i:=1 to n do
for j:=1 to n do read(fi,a[i][j]);
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
a[i,j]:=min(a[i,k]+a[k,j],a[i,j]);
for i:=1 to n do
begin
for j:=1 to n do write(fo,a[i,j],' ');
writeln(fo);
end;
close(fi); close(Fo);
end.