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

В Паскале

Question

Информатика

Алина

23 июля, 18:49

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

В Паскале

+2

Ответы (1)

Знаете ответ на вопрос?

Эдуардик · 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.

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

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

В Паскале