{* Сортировка массива методом перебора. *}

REM basic

' Сортировка массива методом перебора.


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