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

индексом.

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!