sortvozr.BAS

{* Сортировка массива по возрастанию *}

REM basic

' Сортировка массива по возрастанию


INPUT "Введите число элементов массива", n
Dim mas(n) As Integer
For I=0 To n-1
mas(I)=1+INT(RND*10)
Next
CLS
PRINT "Вывод массива"
For I=0 To n-1
PRINT mas(I);
Next
{сортировка массива
}For I=0 To n-2
For J=I+1 To n-1
If mas(I)>mas(J) Then
{если нашли меньший элемент, то обменяем их местами
}a=mas(I)
mas(I)=mas(J)
mas(J)=a
End If
Next J
Next I
{конец сортировки массива
}PRINT
PRINT "Вывод отсортированного массива"
For I=0 To n-1
PRINT mas(I);
Next
End