Cod sursa(job #2006603)

Utilizator cc4infinityCojocaru Catalin cc4infinity Data 30 iulie 2017 22:08:34
Problema Floyd-Warshall/Roy-Floyd Scor 0
Compilator fpc Status done
Runda Arhiva educationala Marime 0.54 kb
var a,b,n,m,i,j,k:longint;
    t:array[1..100,1..100] of longint;

begin
assign(input,'royfloyd.in');
reset(input);
readln(n);
for i:=1 to n do
 for j:=1 to n do
  begin
   read(t[i,j]);
  end;
 close(input);
for k:=1 to n do
 for i:=1 to n do
  for j:=1 to n do
   if (t[i,j]>t[i,k]+t[k,j])
   and (t[i,k]<>0)
   and (t[k,j]<>0)
   and (i<>j) or (t[i,j]=0) then t[i,j]:=t[i,k]+t[k,j];
assign(output,'royfloyd.out');
rewrite(output);
for i:=1 to n do
 for j:=1 to n do
  if j=n then writeln(t[i,j]) else write(t[i,j],' ');
end.