pascal难题求解农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草喂养奶牛的局面.在奶牛断粮之前,john拉着他的马车到农民Don的农场中买

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/14 03:09:17

pascal难题求解农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草喂养奶牛的局面.在奶牛断粮之前,john拉着他的马车到农民Don的农场中买
pascal难题求解
农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草喂养奶牛的局面.在奶牛断粮之前,john拉着他的马车到农民Don的农场中买一些稻草给奶牛过冬.已知john的马车可以装的下C(1

pascal难题求解农民john面临一个很可怕的事实,因为防范失措他存储的所有稻草给澳大利亚蟑螂吃光了,他将面临没有稻草喂养奶牛的局面.在奶牛断粮之前,john拉着他的马车到农民Don的农场中买
很简单的01背包.
var n,m,i,x,w:longint;
f:array[0..50000] of longint;
begin
read(m,n);
for i:=1 to n do
begin
read(w);
for x:=m downto w do
if f[x-w]+w>f[x] then f[x]:=f[x-w]+w;
end;
write(f[m]);
end.