Question

решите номер 4,50 баллов​

Answer 1

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

end.

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger('n=');

 var a := ArrRandom(n, 1, n);

 a.Println;

 a.Where((v, i) -> v = i + 1).Count.Println

end.