Cod sursa(job #1210954)

Utilizator Alex1199Alex Bercea Alex1199 Data 21 iulie 2014 18:01:25
Problema Floyd-Warshall/Roy-Floyd Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.68 kb
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.