Pagini recente » Cod sursa (job #2859258) | Cod sursa (job #1342312) | Cod sursa (job #1437434) | Cod sursa (job #2643567) | Cod sursa (job #179585)
Cod sursa(job #179585)
var f,g:text;
v:array[1..100,1..100] of integer;
i,j,n,k:integer;
begin
assign (f,'royfloyd.in');reset (f);
assign (g,'royfloyd.out');rewrite (g);
readln (f,n);
for i:=1 to n do
for j:=1 to n do begin
read(f,v[i,j]);
if v[i,j]=0 then if i=j then v[i,j]:=0
else v[i,j]:=maxint;
end;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if v[i,j]>v[i,k]+v[k,j] then v[i,j]:=v[i,k]+v[k,j];
for i:=1 to n do begin
for j:=1 to n do
write(g,v[i,j],' ');
writeln (g);
end;
close(f);close(g);
end.