ac1146.pas

来自「这是在网络上搜集到的在东京大学的ACM上面解决的一些题目的源码」· PAS 代码 · 共 23 行

program tju1146;
const
  maxn=600;
var
  len:array[0..maxn]of longint;
  n,t,m,l,i,j,ans,x,max:longint;
begin
  repeat
    read(n,t,m);m:=m*t;ans:=0;max:=0;
    for i:=1 to n do begin
      read(l);if l<=t then begin
        inc(max);len[max]:=maxlongint;
        for j:=max downto 1 do begin
          if t-len[j-1] mod t<l then x:=(len[j-1] div t+1)*t+l else x:=len[j-1]+l;
          if x<len[j] then len[j]:=x;
          if (len[j]<=m) and (j>ans) then ans:=j;
        end;
      end;
    end;
    writeln(ans);
  until seekeof;
end.