Метод обмена - VB

Формулировка задачи:

Отсортировать по убыванию положительные элементы массива методом обмена.

Решение задачи: «Метод обмена»

textual
                            Листинг программы 
                        

                            Sub SortPos(X() as integer)
      For i%=1 to Ubound(X,1)-1
          For j%=i%+1 to Ubound(X,1)
               If (X(i%) > 0) And (X(j%) > 0) then
                  If X(i%) < X(j%)
                     tmp%=X(i%)
                     X(i%)=X(j%)
                     X(j%)=tmp%
                  End if
               End if
          Next j%
      Next i%
End Sub
                        

Оцени полезность:

10 голосов , оценка 4 из 5

Похожие ответы