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

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 !!!!!