纪念品分组
元旦快到了,校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡,他要把购来的纪念品根据价格进行分组,但每组最多只能包括两件纪念品, 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品,乐乐希望分组的数目最少。 题目描述
你的任务是写一个程序,找出所有分组方案中分组数最少的一种,输出最少的分组数目。
输入格式
输入文件group.in包含n+2行:
第1行包括一个整数w,为每组纪念品价格之和的上上限。
第2行为一个整数n,表示购来的纪念品的总件数G
第3~n+2行每行包含一个正整数Pi (5 <= Pi <= w)w表示所对应纪念品的价格。
输出格式
输出文件group.out仅一行,包含一个整数,即最少的分组数目。
var
m:integer;
n,count:longint;
a:array[1..30000] of integer;
procedure init;
var
i:integer;
begin
assign(input,'group.in');
reset(input);
readln(m);
readln(n);
for i:=1 to n do readln(a[i]);
//close(input);
end;
procedure debug;
var
i:integer;
begin
for i:=1 to n do writeln(a[i]);
end;
procedure qsort(left,right:integer);
var
i,j,k,temp:integer;
begin
i:=left;
j:=right;
k:=a[(left+right) div 2];
repeat
while a[i]<k do inc(i);
while a[j]>k do dec(j);
if i<=j then
begin
temp:=a[i];
a[i]:=a[j];
a[j]:=temp;
inc(i);
dec(j);
end;
until i>j;
if left<j then qsort(left,j);
if i<right then qsort(i,right);
end;
procedure solve;
var
i,j:integer;
begin
qsort(1,n);
i:=1;
j:=n;
repeat
if a[i]+a[j]<=m then
begin
inc(i);
dec(j);
inc(count);
end
else
begin
dec(j);
inc(count);
end;
until i>j;
end;
procedure answer;
begin
assign(output,'group.out');
rewrite(output);
writeln(output,count);
close(output);
end;
begin
init;
solve;
answer;
end.