比赛 20101025 评测结果 AAAAAAAAAA
题目名称 买票 最终得分 100
用户昵称 wo shi 刘畅 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-10-25 20:50:13
显示代码纯文本
var
  n,v,i,j,total,max:longint;
  a:array[0..2000000]of longint;

begin
  assign(input,'tickets.in'); reset(input);
  assign(output,'tickets.out'); rewrite(output);
  readln(n,v);
  for i:=1 to n do read(a[i]);
  i:=1;
  j:=0;
  total:=0;
  max:=-maxlongint;
  while j<=n do
  begin
    repeat
      inc(total,a[j]);
      inc(j);
    until (total+a[j]>v)or(j>n);
    if j-i>max then max:=j-i;
    dec(total,a[i]);
    inc(i);
  end;
  writeln(max);
  close(input);
  close(output);
end.