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

Dim Massiv() As Integer Dim q As Integer Dim x As Integer  Dim y As Integer For 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      Next Next