var a:array[1..100]of integer;i,n,k:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);k:=0;
for i:=1 to n do begin
if a[i]=i then k:=k+1;end;
writeln(k);
end.

Program P1;

const n=10; (n - кол-во элементов массивa. можно изменить прямо в этой строке)

type mas=array[1..n] of integer;

var   A:mas;

        k,i:integer;

Begin 

k:=0; (k - кол-во элементов массива, значение которых совпадает с их индексом)

 for i:= 1 to n do

  Readln(A[i]);

  for i:=1 to n do

     if A[i]=i then k:=k+1;

Writeln(k); 

end.

P.S.

Задача решена для Pascal !!!!!