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

В Паскале

Question

Информатика

Стоян

30 августа, 11:45

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

В Паскале

+3

Ответы (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 чисел подсчитать количество случаев когда номер элемента равен его значению.

В Паскале