Ниже представлен пример программы на языке Бейсик, реализующей алгоритм сортировки пузырьком:

10 DIM A(10)
20 FOR I = 1 TO 10
30 INPUT "Введите значение для A(";I;")": A(I)
40 NEXT I
50 FOR I = 1 TO 9
60 FOR J = 1 TO 10 - I
70 IF A(J) > A(J + 1) THEN
80 TEMP = A(J)
90 A(J) = A(J + 1)
100 A(J + 1) = TEMP
110 END IF
120 NEXT J
130 NEXT I
140 PRINT "Отсортированный массив:"
150 FOR I = 1 TO 10
160 PRINT A(I)
170 NEXT I

Программа запрашивает у пользователя 10 чисел, сохраняет их в массив A и сортирует его с помощью алгоритма сортировки пузырьком. Отсортированный массив затем выводится на экран.

Еще один пример программы на языке Бейсик с использованием алгоритма поиска минимального элемента в массиве:

10 DIM A(10)
20 FOR I = 1 TO 10
30 INPUT "Введите значение для A(";I;")": A(I)
40 NEXT I
50 MIN = A(1)
60 FOR I = 2 TO 10
70 IF A(I) < MIN THEN
80 MIN = A(I)
90 END IF
100 NEXT I
110 PRINT "Минимальный элемент в массиве: "; MIN

Эта программа запрашивает у пользователя 10 чисел, сохраняет их в массив A и находит минимальный элемент в этом массиве. Минимальное значение затем выводится на экран.