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.
Fobor
68
//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
31
Answer add
safiya
safiya
Other questions in the section - informatics
Boonsahda
Task 1. The massif from 30 elements filled with the whole random numbers from
2020-10-26 10:00:32
Nyuk
Please count PLEASE! The volume of video memory is equal to 256 KB. Amount
2020-10-26 10:00:32
Perad
viznachita number n k_lk_st figures at tsyy chisl_paskal is given to the naturalena
2020-10-26 10:00:32
Modi
to write the program for determination of the sum of natural numbers from 1
2020-10-26 10:00:32
Zeamkob
Napissat the program easy in pascal with all values
2020-10-26 10:00:32
