# 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

### 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