比赛 20101025 评测结果 AWWWWTTTTT
题目名称 买票 最终得分 10
用户昵称 echo 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-10-25 21:07:04
显示代码纯文本
program tickets;
var
   n,f,i,j,t,m,sum:longint;
   a:array[1..10000] of longint;
begin
  assign(input,'tickets.in');
  reset(input);
  assign(output,'tickets.out');
  rewrite(output);
  readln(n,f);
  for i:=1 to n do read(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
  sum:=0;
  for i:=1 to n do
    begin
      if sum+a[i]<=f then begin sum:=sum+a[i]; m:=m+1; end;
    end;
  writeln(m);
  close(input);
  close(output);
end.