DISNEY2 - Công viên Disneyland (version 2)

Tác giả: flashmt

Ngôn ngữ: Pascal

uses math;
const fi='';
      maxn=210;
      oo=10000000;
var n,re:longint;
    a,f:array[0..maxn,0..maxn] of longint;

procedure rf;
var i,j:longint;
begin
     read(n);
     for i:=1 to n do
         for j:=1 to n do
             read(a[i,j]);
end;

procedure pr;
var i,j,x:longint;
begin
     for i:=0 to n do
         for j:=0 to n do
             f[i,j]:=oo;
     f[1,1]:=0;
     for i:=1 to n-1 do
         for j:=1 to n-1 do
         begin
              x:=max(i,j)+1;
              f[i,x]:=min(f[i,x],f[i,j]+a[j,x]);
              f[x,i]:=f[i,x];
              f[j,x]:=min(f[j,x],f[i,j]+a[i,x]);
              f[x,j]:=f[j,x];
         end;
     re:=oo;
     for i:=1 to n do
         re:=min(re,f[i,n]+a[n,1]+a[i,1]);
     writeln(re);
end;

begin
     assign(input,fi); reset(input);
     rf;
     pr;
     close(input);
end.

Download