Pagini recente » Cod sursa (job #1612061) | Cod sursa (job #137176) | Cod sursa (job #1433559) | Cod sursa (job #1859291) | Cod sursa (job #409264)
Cod sursa(job #409264)
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
if (i<>j) and (i<>k) and (k<>j) then
if (a[i,k]*a[i,j]*a[k,j]<>0) then
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.