Напишите, пожалуйста, программу на Pascal.
Дан одномерный массив. Определить, могут ли его элементы образовать возрастающую последовательность после удаления одного из элементов.
Дан одномерный массив. Определить, могут ли его элементы образовать возрастающую последовательность после удаления одного из элементов.
Answers & Comments
Verified answer
//PascalABC.NET 3.2 сборка 1318Const
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
Пример вывода:
Да