Cod sursa(job #1362279)

Utilizator casianos1996Marc Casian Nicolae casianos1996 Data 26 februarie 2015 11:26:52
Problema Floyd-Warshall/Roy-Floyd Scor 100
Compilator fpc Status done
Runda Arhiva educationala Marime 0.67 kb
program royfloyd;
var     n,i,j,k:longint;
        a:array of array of int64;
begin
  assign(input,'royfloyd.in'); reset(input);
  assign(output,'royfloyd.out'); rewrite(output);
  readln(n);
  setlength(a,n+1,n+1);
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          read(a[i,j]);
          if (a[i,j]=0) and (i<>j) then a[i,j]:=maxlongint;
        end;
      readln;
    end;
  for k:=1 to n do
    for i:=1 to n do
      for j:=1 to n do
        if a[i,k]+a[k,j]<a[i,j] then a[i,j]:=a[i,k]+a[k,j];
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(a[i,j],' ');
      writeln;
    end;
  close(input); close(output);
end.