Dim a%(1 To 20)
For i = 1 To 20
a(i) = Int(Rnd * 90 + 10)
Print a(i);
Next
Print
For i = 1 To 20
If a(i) Mod 2 = 1 Then
Print a(i);
End If
Next
Print
For i = 1 To 19
For j = 20 To i + 1 Step -1
If a(j) > a(j - 1) Then
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next
Next
For i = 1 To 20
If a(i) Mod 2 = 1 Then
Print a(i);
End If
Next