Pagini recente » Cod sursa (job #216606) | Cod sursa (job #1339422) | Cod sursa (job #682586) | Cod sursa (job #1250651) | Cod sursa (job #1672822)
program royfloyd;
var cost:array[1..100,1..100] of integer;
k,i,j,n:integer;
Begin
assign(input,'royfloyd.in'); reset(input);
assign(output,'royfloyd.out'); rewrite(output);
readln(n);
for i:=1 to n do
for j:=1 to n do read(cost[i,j]);
//Roy-Floyd
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if cost[i,j]>cost[i,k]+cost[k,j] then
cost[i,j]:=cost[i,k]+cost[k,j];
for i:=1 to n do
begin
for j:=1 to n do write(cost[i,j],' ');
writeln;
end;
close(input);
close(output);
End.