Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению. В Паскале
Answers & Comments
kitchenrecords
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.
Answers & Comments
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.