纪念品分组

题目描述

元旦快到了，校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但每组最多只能包括两件纪念品， 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品，乐乐希望分组的数目最少。

你的任务是写一个程序，找出所有分组方案中分组数最少的一种，输出最少的分组数目。

输入输出格式

输入格式：

输入文件group.in包含n+2行:

第1行包括一个整数w，为每组纪念品价格之和的上上限。

第2行为一个整数n，表示购来的纪念品的总件数G

第3~n+2行每行包含一个正整数Pi (5 <= Pi <= w)w表示所对应纪念品的价格。

输出格式：

输出文件group.out仅一行，包含一个整数，即最少的分组数目。

输入输出样例

输入样例#1：

100 9 90 20 20 30 50 60 70 80 90

输出样例#1：

6

说明

50％的数据满足：1<=n<=15

100％的数据满足：1<=n<=30000，80<=w<=200

题意:

  要分组，这道题要用快排排序完后，进行判断。

var
  i,j,k,n,m,s:longint;
  a,b:array[0..100000]of longint; 
 procedure init;
 begin
    readln(m);
    readln(n);
    for i:=1 to n do
      readln(a[i]);
 end;
   
 procedure kp(l,r:longint);
 var
   i,j,mid,key:longint;
  begin
    if l>=r then exit;
    i:=l;
    j:=r;
    key:=a[(l+r) div 2];
    repeat
      while a[i]<key do inc(i);
      while a[j]>key do dec(j);
      if i<=j then
        begin
          a[0]:=a[i];
          a[i]:=a[j];
          a[j]:=a[0];
          inc(i);
          dec(j);
        end;
    until i>j;
    if l>j then kp(l,j);
    if i<r then kp(i,r);
  end;
  
  
  procedure aa;
  begin
    while i<=j do
      begin
        if a[i]+a[j]>m then 
          begin
            inc(s);
            dec(j);
          
          end;
        if i=j then 
          begin
            inc(s);
            exit;
          end;
        if a[i]+a[j]<=m then
          begin
            inc(s);
            inc(i);
            dec(j);
          end;
         if i=j then
           begin
             inc(s);
             exit;
           end;
      end;
  end;
 begin
   init;
   kp(1,n);
   i:=1;
   j:=n;
   aa;
   writeln(s);
 end.