Pagini recente » Cod sursa (job #767028) | Cod sursa (job #1178871) | Cod sursa (job #261323) | Cod sursa (job #1355715) | Cod sursa (job #1210954)
var t, i, j, k : integer;
m : array[1..100,1..100] of integer;
Procedure royfloyd;
begin
For k:=1 to t do
For i:=1 to t do
For j:=1 to t do
if (m[i,k]<>0) and (m[k,j]<>0) and (i<>j) and ((m[i,j]>m[i,k]+m[k,j]) or (m[i,j]=0)) then
m[i,j]:=m[i,k]+m[k,j]
end;
begin
Assign(input,'royfloyd.in');
reset(input);
Readln(t);
For i:=1 to t do
begin
for j:=1 to t do
Read(m[i,j]);
Readln;
end;
Close(input);
royfloyd;
assign(output,'royfloyd.out');
Rewrite(output);
for i:=1 to t do
begin
for j:=1 to t do
write(m[i,j],' ');
writeln;
end;
Close(output);
end.