题目描述

虽然msh长大了，但她还是很喜欢找点游戏自娱自乐。有一天，她在纸上写了一串数字：1，l，2，5，4。接着她擦掉了一个l，结果发现剩下l，2，4都在自己所在的位置上，即1在第1位，2在第2位，4在第4位。她希望擦掉某些数后，剩下的数列中在自己位置上的数尽量多。她发现这个游戏很好玩，于是开始乐此不疲地玩起来……不过她不能确定最多能有多少个数在自己的位置上，所以找到你，请你帮忙计算一下！

输入输出格式

输入格式：

第一行为一个数n，表示数列的长度。

接下来一行为n个用空格隔开的正整数，第i行表示数Ai。

输出格式：

一行一个整数，表示擦掉某些数后，最后剩下的数列中最多能有多少个数在自己的位置上，即Ai=i最多能有多少。

输入输出样例

输入样例#1：

5

1 1 2 5 4

输出样例#1：

3

说明

对于20%的数据，n≤20;

对于60%的数据，n≤100;

对于100%的数据，n≤l000。

program df;

var i,j,n,m,x,y,z,k,t:longint;

a,b,c,e,g:array[0..100000] of longint;

f:array[0..1000,0..1000] of longint;

function max(x,y:longint):longint;

begin

if x>y then exit(x)

else exit(y);

end;

begin

readln(n);

t:=0;

for i:=1 to n do

begin

read(a[i]);

b[i]:=i-a[i];

end;

for i:=1 to n do

for j:=0 to i do

begin

f[i,j]:=f[i-1,j-1];

if (b[i]=j) then f[i,j]:=max(f[i,j],f[i-1,j]+1)

else f[i,j]:=max(f[i,j],f[i-1,j]);

end;

t:=0;

for i:=0 to n do

t:=max(t,f[n,i]);

writeln(t);

end.