2
var
a:array[1..7] of integer =(0,2,5,10,5,-1,10);
s,i:integer;
begin
for i:=1 to 7 do
if a[i]= i then s := s+1;
print(s);
end.
----------------
2
var
a:array[1..7] of integer =(0,2,5,10,5,-1,10);
s,i:integer;
begin
for i:=1 to 7 do
if a[i]= i then s := s+1;
print(s);
end.
----------------
2