Программа

CLS

INPUT "введи размер массива " ; n

DIM A(n + 2)

PRINT "введи массив"

FOR i = 1 TO n

'Ввод элементов массива

INPUT A(i)

NEXT i

'Сдвиг всех элементов массива вправо на две позиции

FOR j = 1 TO 2

FOR i = n TO 1 STEP –1

A(i+1) = A(i)

NEXT i

'Вставка нуля в начало массива

A(1)= 0

n = n + 1

NEXT j

FOR i = 1 TO n

'Вывод элементов массива

INPUT A(i);

NEXT i

n = n + 1

END