比赛 20101025 评测结果 AAAAAAAAAA
题目名称 买票 最终得分 100
用户昵称 Achilles 运行时间 0.000 s
代码语言 Pascal 内存使用 0.00 MiB
提交时间 2010-10-25 19:33:45
显示代码纯文本
program tickets;
var
  i,n,f,max,temp,ans,p1:longint;
  sz:array[1..1000000]of longint;
begin
  assign(input,'tickets.in');
  assign(output,'tickets.out');
  reset(input);
  rewrite(output);
  readln(n,f);
  for i:=1 to n do
    read(sz[i]);
  temp:=0;
  p1:=0;
  ans:=0;
  max:=0;
  for i:=1 to n do
  begin
    temp:=temp+sz[i];
    ans:=ans+1;
    while temp>f do
    begin
      p1:=p1+1;
      ans:=ans-1;
      temp:=temp-sz[p1];
    end;
    if ans>max then max:=ans;
  end;
  writeln(max);
  close(input);
  close(output);
end.