9 класс Дан массив чисел. Расставить их по убыванию. Пожалуйста помогите…

Dim Massiv () As IntegerDim q As IntegerDim x As Integer Dim y As IntegerFor x=0 To Massiv.Length — 1 For y=0 To Massiv.Length — 2 If Massiv (i) < Massiv (y+1) Then q=Massiv (y) Massiv (y)=Massiv (y+1) Massiv (y+1)=q End If' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 NextNext