机器分配

题意

总公司拥有高效生产设备M台，准备分给下属的N个公司。各分公司若获得这些设备，可以为国家提供一定的盈利。问：如何分配这M台设备才能使国家得到的盈利最大？求出最大盈利值。其中M《=15，N〈=10。分配原则：每个公司有权获得任意数目的设备，但总台数不得超过总设备数M。

分析

f[i,j]表示第i个公司分配j个机器的最大盈利

f[i,j]:=max(f[i,j],f[i-1,k]+a[i,j-k]);

注意：一定要看懂输入，一开始我就是把输入理解错了。

var
m,n,i,j,k:longint;
f,a:array[0..16,0..11]of longint;
begin
    readln(m,n);
    for i:=1 to m do
    begin
        for j:=1 to n do
        read(a[j,i]);
        readln;
    end;
    fillchar(f,sizeof(f),#0);
    for i:=1 to n do
    for j:=1 to m do
    for k:=0 to j do
    if f[i-1,k]+a[i,j-k]>f[i,j] then f[i,j]:=f[i-1,k]+a[i,j-k];
    write(f[n,m]);
end.