Website and domain for sale:

Napishite, please, the program on Pascal. The one-dimensional massif is given. To define whether can form its elements the increasing sequence after removal of one of elements.

//PascalABC. NET 3. The 2nd assembly of 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] & gt; ar[i] then inc (CouOfDel); if CouOfDel> There (Is) no 1 then writeln else writeln (Yes); end. 1 2 2 1 3 Yes
Answer add