Программа

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