Сортировка одномерного массива - VB (61051)

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

сортировка одномерного массива по убыванию какие элементы поместить на форму? как полностью записать пррогу ии вывод отсортированного вектора?? самым легким способом

Решение задачи: «Сортировка одномерного массива»

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

                            Sub SortArr(X() as integer)
   n%=Ubound(X,1)
   for i%=1 to n%-1
       for j%=i%+1 to n%
           if X(j%) < X(i%) then
             tmp%=X(i%)
             X(i%)=X(j%)
             X(j%)=tmp%
           end if
       Next j%
   Next i%
End sub
                        

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

13 голосов , оценка 4.077 из 5

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