【寒假任务】 洛谷1094 纪念品分组

问题描述
元旦快到了，校学生会让乐乐负责新年晚会的纪念品发放工作。为使得参加晚会的同学所获得 的纪念品价值相对均衡，他要把购来的纪念品根据价格进行分组，但每组最多只能包括两件纪念品， 并且每组纪念品的价格之和不能超过一个给定的整数。为了保证在尽量短的时间内发完所有纪念品，乐乐希望分组的数目最少。
你的任务是写一个程序，找出所有分组方案中分组数最少的一种，输出最少的分组数目。
输入
第1行包括一个整数w，为每组纪念品价格之和的上上限。
第2行为一个整数n，表示购来的纪念品的总件数G
第3~n+2行每行包含一个正整数Pi (5 <= Pi <= w)w表示所对应纪念品的价格。
输出
包含一个整数，即最少的分组数目。
样例输入
100
9
90
20
20
30
50
60
70
80
90
样例输出
6
算法讨论
先从大到小排序，拿最大的加最小的，标记，不行就拿第二大的，以此类推，最后把没标记的加上。有个小优化，若不管怎样都无法再组合了，那就不用再找了，直接退出。

const
  maxn=30000;
var
  a:array[1..maxn] of longint;
  f:array[1..maxn] of boolean;
  i,j,n,s,w:longint;
  flag:boolean;

procedure qsort(l,r:longint);
var
  i,j,m,t:longint;
begin
  i:=l; j:=r;
  m:=a[(l+r) div 2];
  repeat
    while a[i]>m do
      inc(i);
    while a[j]<m do
      dec(j);
    if i<=j
      then begin
             t:=a[i]; a[i]:=a[j]; a[j]:=t;
             inc(i); dec(j)
           end;
  until i>j;
  if l<j
    then qsort(l,j);
  if i<r
    then qsort(i,r)
end;

begin
  read(w);
  read(n);
  for i:=1 to n do
    read(a[i]);
  qsort(1,n);
  for i:=n downto 1 do
    begin
      flag:=false;
      for j:=1 to i-1 do
        if (f[j]=false) and (a[i]+a[j]<=w) and (i<>j)
          then begin
                 f[j]:=true;
                 f[i]:=true;
                 flag:=true;
                 inc(s);
                 break
               end;
      if flag=false
        then break 
    end;
  for i:=1 to n do
    if f[i]=false
      then inc(s);
  write(s)
end.

Pixiv ID：61481273