Cod sursa(job #190964)

Utilizator tamas_iuliaTamas Iulia tamas_iulia Data 24 mai 2008 17:03:49
Problema Floyd-Warshall/Roy-Floyd Scor 90
Compilator fpc Status done
Runda Arhiva educationala Marime 0.55 kb
var n,i,j,k : longint;
    a : array[0..110,0..110] of integer;
    f,g : text;
begin
  assign(f,'royfloyd.in');reset(f);
  assign(g,'royfloyd.out');rewrite(g);
  read(f,n);
    for i:=1 to n do
      for j:=1 to n do
        read(f,a[i,j]);
    for k:=1 to n do
      for i:=1 to n do
        for j:=1 to n do
          if (a[i,j]>a[i,k]+a[k,j])or((a[i,j]=0)and(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(g,a[i,j],' ');
      writeln(g);
    end;
  close(g);
end.