CLS
INPUT "введи размер массива " ; n
DIM A(n + 1)
PRINT "введи массив"
FOR i = 1 TO n
'Ввод элементов массива
INPUT A(i)
NEXT i
'Задание начального значения минимума
MIN = A(1)
'Определение наименьшего значения массива
FOR i = 2 TO n
IF A(i) < MIN THEN MIN = A(i)
NEXT i
'Сдвиг всех элементов вправо на одну позицию, начиная со второго номера
FOR i = n TO 2 STEP –1
A(i+1) = A(i)
NEXT i
'Вставка значения минимального элемента во вторую позицию
A(2)= MIN
FOR i = 1 TO n+1
'Вывод элементов массива
INPUT A(i);
NEXT i
n = n + 1
END