P1409 纪念品分组

type must=record

　　 W:longint;

　　 T:boolean;

　　 end;

var Have,Max,for2:integer;

　　answer:longint;

　　Thing:array[1..30000] of must;

procedure init;

var for1:integer;

begin

readln(Max);

readln(Have);

for for1:=1 to Have do begin

readln(Thing[for1].W);

Thing[for1].T:=true;

end;

end;

procedure working;

var for1,for2,need:integer;

　　 box:must;

begin

answer:=0;

need:=Have;

for for1:=1 to Have-1 do

for for2:=for1+1 to Have do if Thing[for1].w>Thing[for2].w then begin

　　box:=thing[for1];

　　thing[for1]:=thing[for2];

　　thing[for2]:=box;

end;

for for1:=1 to Have-1 do begin

if thing[for1].t=false then continue;

for for2:=Have downto for1+1 do begin

　　if thing[for2].t=false then continue;

　　if thing[for1].w+thing[for2].w