Pagini recente » Cod sursa (job #2550523) | Cod sursa (job #563688) | Cod sursa (job #655443) | Cod sursa (job #2626017) | Cod sursa (job #327959)
Cod sursa(job #327959)
program floyd;
var a,b:text;
i,j,k,x:integer;
z:array[1..100,1..100] of integer;
function min(i,j:integer):integer;
begin
if i>j then min:=j else min:=i;
end;
begin
assign(a,'royfloyd.in');
assign(b,'royfloyd.out');
reset(a);
Readln(a,k);
rewrite(b);
for i:=1 to k do
begin
for j:=1 to k do
Read(a,z[i,j]);
Readln(a);
end;
for x:=1 to k do
for i:=1 to k do
for j:=1 to k do
z[i,j]:=min(z[i,j],z[i,x]+z[x,j]);
for i:=1 to k do
begin
for j:=1 to k do
Write(b,z[i,j],' ');
Writeln(b);
end;
close(b);
end.