记录编号	20479	评测结果	AAAAAAAAAA
题目名称	买票	最终得分	100
用户昵称	王者自由	是否通过	通过
代码语言	Pascal	运行时间	0.236 s
提交时间	2010-10-26 12:52:11	内存使用	1.12 MiB

program tickets;
var n,f,i,s,sum,max:longword;
  a:array[1..1000000]of byte;
begin
  assign(input,'tickets.in'); reset(input);
  assign(output,'tickets.out'); rewrite(output);
  readln(n,f);
  s:=1; max:=0; sum:=0;
  for i:=1 to n do
  begin
    read(a[i]);
    sum:=sum+a[i];
    while (sum>f)and(s<=i) do
    begin
      sum:=sum-a[s];
      inc(s);
    end;
    if i-s+1>max then max:=i-s+1;
  end;
  writeln(max);
  close(input); close(output);
end.