Cod sursa(job #1206450)

Utilizator valen.valentinValentin Valeanu valen.valentin Data 10 iulie 2014 09:11:38
Problema Floyd-Warshall/Roy-Floyd Scor 50
Compilator fpc Status done
Runda Arhiva educationala Marime 0.49 kb
program royflowd;
type
tabel=array [0..101,0..101] of longint;
var
t:tabel;
n,k,i,j:longint;
f1,f2:text;
begin
assign (f1,'royfloyd.in');
assign (f2,'royfloyd.out');
reset (f1);
rewrite (f2);
readln (f1,n);
for i:=1 to n do
for j:=1 to n do
read (f1,t[i,j]);
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
if t[i,j]>t[i,k]+t[k,j] then t[i,j]:=t[i,k]+t[k,j];
for i:=1 to n do begin
for j:=1 to n do
write (f2,t[i,j],' ');
writeln (f2);
end;
close (f1);
close (f2);
end.