Question

算法设计，动态规划问题

算法设计，动态规划问题矩阵连乘问题，需要高手帮忙

Answer 1

uses math;
  
var
 n,i,j,l,r,k:longint;
 f:array[1..100,1..100] of longint;
 a,b:Array[1..100] of longint;
  
  begin
    read(n);
  
    for i:=1 to n do
      read(a[i],b[i]);
  
    for i:=1 to n do
      f[i,i]:=0;
  
    for i:=2 to n do
     for j:=1 to n-i+1 do
       begin
         l:=j;r:=j+i-1;
         f[l,r]:=maxlongint;
         for k:=l to r-1 do
         f[l,r]:=min(f[l,r],f[l,k]+f[k+1,r]+a[l]*b[k]*b[r]);
       end;
  
    writeln(f[1,n]);
  end.