Cod sursa(job #572467)

Utilizator C0Mr4d3yonootz321 C0Mr4d3 Data 5 aprilie 2011 12:30:50
Problema Floyd-Warshall/Roy-Floyd Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.58 kb
program royfloyd;

var a:array[1..100,1..100] of word;
    i,j,k,n:byte;
    f:text;

begin
  assign(f,'royfloyd.in');
  reset(f);
  readln(f,n);
  for i:=1 to n do
    begin
      for j:=1 to n do
        read(f,a[i,j]);
      readln(f);
    end;
  close(f);
  for i:=1 to n do
    for j:=1 to n do
      for k:=1 to n do
        if a[i,k] + a[k,j] < a[i,j] then
          a[i,j]:=a[i,k] + a[k,j];
  assign(f,'royfloyd.out');
  rewrite(f);
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(f,a[i,j],' ');
      writeln(f);
    end;
  close(f);
end.