记录编号	38467	评测结果	AAAAAAAAAA
题目名称	[SOJ 1137] 河床	最终得分	100
用户昵称	wo shi 刘畅	是否通过	通过
代码语言	Pascal	运行时间	0.034 s
提交时间	2012-04-19 13:57:37	内存使用	0.50 MiB

var
  n,k,i,ans,now,max,min,j:longint;
  a:Array[0..100000]of longint;

begin
  assign(input,'riverbed.in'); reset(input);
  assign(output,'riverbed.out'); rewrite(output);
  readln(n,k);
  for i:=1 to n do read(a[i]);
  now:=-maxlongint;
  a[0]:=-maxlongint;
  for i:=1 to n do
  begin
    min:=a[i];
    max:=a[i];
    ans:=1;
    if a[i]=a[i-1] then continue;
    for j:=i+1 to n do
    begin
      if a[j]<min then min:=a[j];
      if a[j]>max then max:=a[j];
      if max-min<=k then
      begin
        if j-i+1>ans then ans:=j-i+1;
      end
      else break;
    end;
    if ans>now then now:=ans;
  end;
  writeln(now);
  close(input);
  close(output);
end.