Напишите, пожалуйста, программу на Pascal. Дан одномерный массив. Определить, могут ли его элементы образовать возрастающую последовательность после удаления одного из элементов.
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 Пример вывода: Да
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
