Cod sursa(job #159446)

Utilizator ral33xstaic raluca ral33x Data 14 martie 2008 09:49:58
Problema Floyd-Warshall/Roy-Floyd Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.72 kb
program royfloyd;
uses crt;
type matr=array[1..100,1..100]of byte;
var a:matr;
    n,i,j,k:byte;
    f,g:text;
procedure citire;
begin assign(f,'royfloyd.in');reset(f);
      assign(g,'royfloyd.out');rewrite(g);
      readln(f,n);
      for i:=1 to n do begin
          for j:=1 to n do read(f,a[i,j]);
          readln(f)
      end;
end;
procedure tip;
begin for i:=1 to n do begin
          for j:=1 to n do write(g,a[i,j],' ');
          writeln(g)
      end;
end;
procedure drummin;
begin
      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];
end;
begin citire;
      drummin;
      tip;
      close(g)
end.