• Напишите, пожалуйста, программу на Pascal.
    Дан одномерный массив. Определить, могут ли его элементы образовать возрастающую последовательность после удаления одного из элементов.

Ответы 3

  • Что делает команда inc(CouOfDel)?
  • Спасибо)
  • //PascalABC.NET 3.2 сборка 1318Const  n=5;  Var  ar:array[1..n] of integer;  CouOfDel,i:integer;beginfor i:=1 to n doreadln(ar[i]);for i:=2 to n do  if ar[i-1]>ar[i] then inc(CouOfDel);if CouOfDel>1 then writeln('Нет') else writeln('Да');end.Пример ввода:12213Пример вывода:Да
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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