Напишите программу по 2 алгоритму на языке бейсик

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

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

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

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

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

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

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