Question

Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению.
В Паскале

Answer 1

var i, x, n, s: integer;
begin
  write('n='); readln(n);
  for i := 1 to n do begin
    readln(x);
    if x = i then s := s + 1;
  end;
 writeln('таких чисел = ', s);
end.