Question

9 класс     

Дан массив чисел. Расставить их по убыванию.

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

 

 

 

 

Answer 1

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