var a,b,c,d,e:real;sum,max:real;i,j,k,l,m,inc:shortint;beginreadln(a,b,c,d,e); \\五个袋子的重量读进来；sum:=0;
\\sum清零；max:=0;
\\最大值初始化；inc:=0;
\\本数初始化；for i:=1 to 2 do
\\开始枚举；
for j:=1 to 2 do
for k:=1 to 2 do
for l:=1 to 2 do
for m:=1 to 2 do\\对于一个袋子来说只有取或不取两种情况；
beg...
|
