Pagini recente » Cod sursa (job #2522007) | Cod sursa (job #2763767) | Cod sursa (job #266275) | Cod sursa (job #1674888) | Cod sursa (job #1414310)
program royfloyd;
type tabel=array[0..101,0..101] of longint;
var t:tabel;
n,i,k,j: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]) or (t[i,j]=0) 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.