me too 我也是这个点错了
by 233wzry777666 @ 2017-10-29 17:20:06
完了 我就通过了第四个点
```pascal
var
n,t,t1,sum,max:integer;
a:array[1..90000]of integer;
begin
read(n);
sum:=1;
max:=1;
for t:=1 to n do read(a[t]);
for t:=1 to n do
begin
if a[t]=a[t+1]-1 then
begin
inc(sum);
if sum>max then max:=sum;
end;
end;
sum:=1;
write(max);
end.
```
by Ouyyx2002 @ 2018-02-20 19:47:20