Cod sursa(job #1195059)

Utilizator maricasorinSorin-Gabriel maricasorin Data 5 iunie 2014 22:58:27
Problema Floyd-Warshall/Roy-Floyd Scor 10
Compilator fpc Status done
Runda Arhiva educationala Marime 0.53 kb
program floyd;
type matrice=array [1..100,1..100] of integer;
var f,g:text;
 p,k,n,i,j:byte;
  a:matrice;
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;
for k:=1 to n do
 for i:=1 to n do
  for j:=1 to n do
   if (k<>i) and (k<>j) then begin
   p:=a[k,j]+a[i,k];
   if p<a[i,j] then a[i,j]:=p;
   end;
for i:=1 to n do begin
 for j:=1 to n do write (g,a[i,j],' ');
 writeln(g);
 end;
close(f);
close(g);
readln;
end.