Pagini recente » Cod sursa (job #2007470) | Cod sursa (job #414950) | Cod sursa (job #2853053) | Cod sursa (job #2709110) | Cod sursa (job #191733)
Cod sursa(job #191733)
program floyd;
var
n, i, j, k : longint;
a : array[0..200,0..200] of longint;
fl : text;
begin
assign(fl,'royfloyd.in');
reset(fl);
readln(fl,n);
for i := 1 to n do
for j := 1 to n do
read(fl,a[i,j]);
for k := 1 to n do
for i := 1 to n do
for j := 1 to n do
if (a[i,k] <> 0) and (a[k,j] <> 0) then
if (a[i,j] > a[i,k]+a[k,j]) or ((a[i,j] = 0) and (i<>j)) then
a[i,j] := a[i,k]+a[k,j];
close(fl);
assign(fl,'royfloyd.out');
rewrite(fl);
for i := 1 to n do
begin
for j := 1 to n do
write(fl,a[i,j],' ');
writeln(fl);
end;
close(fl);
end.