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

Ответы 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.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years