题目描述
虽然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.