pascal数组似乎开不了这么大
by CR2016_2 @ 2016-10-21 20:06:32
数组开这么大，找事吗？
by 吴海啸 @ 2016-10-22 13:09:12
```cpp
var n,j,t,max:longint;s:string;
begin
readln(s);t:=1;
repeat
read(n);
if n>j then inc(t)
else
begin
if t>max then max:=t;
t:=1;
end;
j:=n;
until eoln;
write(max);
end.
```
by 吴海啸 @ 2016-10-22 13:10:08