Напишите, пожалуйста, программу ** Pascal. Дан одномерный массив. Определить, могут ли...

Question

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

Comments

Можно ли переставлять элементы массива?

---

Да, конечно)

---

Тогда всякий массив можно представить как возрастающую последовательность.

---

Нет, вы ошибаетесь. Например, есть массив из одних нулей. Как бы вы их не переставляли, последовательности не получится.

---

Последовательность x называется монотонно возрастающей тогда и только тогда, когда из n<m следует, что x[n]<=x[m].

---

Элементы массива можно переставлять в ходе решения, но массив в итоге должен остаться неизменным.

---

Это, эмм, странно. Ладно, работаю.

Answer 1

//PascalABC.NET 3.2 сборка 1318

Const
  n=5;

  Var
  ar:array[1..n] of integer;
  CouOfDel,i:integer;
begin
for i:=1 to n do
readln(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.

Пример ввода:
1
2
2
1
3
Пример вывода:
Да

Comments

Что делает команда inc(CouOfDel)?

---

Увеличивает значение переменной CouOfDel на единицу.

---

Спасибо)

---

Не за что.