Дано n чисел , расставить их в порядке возрастания. Basic.

Предыдущий
вопрос Следующий
вопрос

Для этого можно использовать сортировку пузырьком. Вот пример кода на Basic:

DIM numbers(10)
PRINT "Введите " + STR$(UBOUND(numbers) + 1) + " чисел: "
FOR i = 0 TO UBOUND(numbers)
INPUT numbers(i)
NEXT i
' Сортировка пузырьком
FOR i = 0 TO UBOUND(numbers) - 1
FOR j = i + 1 TO UBOUND(numbers)
IF numbers(i) > numbers(j) THEN
temp = numbers(i)
numbers(i) = numbers(j)
numbers(j) = temp
END IF
NEXT j
NEXT i
PRINT "Числа в порядке возрастания:"
FOR i = 0 TO UBOUND(numbers)
PRINT numbers(i)
NEXT i

Этот код сначала запрашивает у пользователя ввод n чисел, затем сортирует их с помощью сортировки пузырьком и выводит результат в порядке возрастания.