比赛 20101025 评测结果 AAAAAAAAAA
题目名称 买票 最终得分 100
用户昵称 ybh 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-10-25 20:59:19
显示代码纯文本
{买票}
{水题}
{yangbohua}
{time: 2010-10-25}

program tickets;
var
  a:array[0..1000010] of longint;
  h,t,n,m,i,s,ans:longint;

begin
  assign(input,'tickets.in');
  reset(input);
  assign(output,'tickets.out');
  rewrite(output);

  readln(n,m);
  for i:=1 to n do
    read(a[i]);

  h:=0;
  t:=0;
  if a[1]<=m then
  begin
    t:=1;
    s:=a[1];
  end;
  ans:=0;
  while t<n do
  begin
    while (s+a[t+1]<=m) and (t+1<=n) do
    begin
      s:=s+a[t+1];
      t:=t+1;
    end;
    if t-h>ans
      then ans:=t-h;
    if h<t then
    begin
      s:=s-a[h+1];
      h:=h+1;
    end
    else
    begin
      h:=h+1;
      t:=t+1;
    end;
  end;

  writeln(ans);
  close(input);
  close(output);
end.