Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению.В Паскале
Ввести n чисел подсчитать количество случаев когда номер элемента равен его значению.
В Паскале
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы