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