Напишите, пожалуйста, программу на Pascal. Дан одномерный массив. Определить, могут ли его элементы образовать возрастающую посл
Напишите, пожалуйста, программу на 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.