Website and domain for sale: mail@discussmain.com

Task 1. Filling of the massif from a to bdan the massif from 30 elements. To fill the massif since element a to element b with the two, and other elements in zero and to display all massif. It is known that 1< =aformat 2 integers 1< vvodavvoditsya; =aformat vyvodamassiv from 30 elementovPrimerVvod2 10vyvod0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0v Pascal ABC which is (not updated)

342
Var M: array [1. 30] of integer; i, a, b: integer; Begin Read (a, b); For i: = 1 to a-1 do M[i]: = 0; For b: = to b do M[b]: = 2; For i: = b+1 to 30 do M[i]: = 0; For i: = 1 to 30 do Write (M [i]) End.
239
Answer add