30 lens = 10: REM Количество элементов массива
40 diap = 100: REM Диапазон значений
60 DIM A(lens): REM Целочисленный массив А
70 mit = 0: REM Переменная для перестановки
80 i = 0
90 j = 0
100 min = 0: REM Минимальный элемент
110 el = 0: REM Номер минимального элемента
130 CLS : REM Очистка экрана
140 RANDOMIZE (time): REM Инициализация случайного выбора
150 FOR i= 1 ТО lens
160 A(i) = INT(RND * diap): REM Заполнение массива
170 NEXT i
180 FOR i= 1 TO lens
190 PRINT A(i);" ";: REM Распечатка массива
200 NEXT i
210 PRINT
220 FOR i = 1 TO lens - 1: REM Цикл замены по всему массиву
230 min = A(i)
240 el = i
250 FOR j = i + 1 TO lens: REM Поиск минимального элемента
260 IF А(j) < min THEN min = A(j): el = j
270 NEXT j
280 mit = A(i): REM Минимальный элемент ставится на
290 A(i) = min: REM свое место
300 A(el) = mit
310 NEXT i
320 FOR i = 1 TO lens
330 PRINT A(i);" ";: REM Распечатка нового массива
340 NEXT i
350 END