Cod sursa(job #1125203)

Utilizator azkabancont-vechi azkaban Data 26 februarie 2014 16:21:10
Problema Floyd-Warshall/Roy-Floyd Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.52 kb
Program royfloyd;
var n,i,j,k : word;
    D : array [1..100,1..100] of longint;
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(D[i,j]);

  for k:=1 to n do
     for i:=1 to n do
        for j:=1 to n do
           if D[i,j]>D[i,k]+D[k,j] then
            D[i,j]:=D[i,k]+D[k,j];

   for i:=1 to n do begin
     for j:=1 to n do write(D[i,j],' '); writeln;
   end;
  close(input);
  close(output);
end.