В линейном массиве посчитать количество элементов, значение которых совпадает с ихиндексом.

var a:array[1..100]of integer;i,n,k:integer;beginreadln(n);for i:=1 to n doreadln(a[i]);k:=0;for i:=1 to n do beginif 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 !!!!!