Оформить задачу на языке Паскаль - Элементы массива а циклически сдвинуть на 1 позицию влево, а первый и последний элементы поменять местами.

program arr;

const n = 40; / /задает число элементов массива

var a: array [1 ... n] of integer;

temp: integer;

begin

randomize;

//Формирование массива

for i: integer: = 1 to n do

begin

a[i]: = random (30);

write (a[i] : 3);

end;

temp: = a[1];

writeln ();

//Сдвиг массива

for i:integer: = 1 to n - 1 do a[i]: = a[i + 1];

a[n]:=temp; / /первый и последний элемент - обмен значениями

//вывод массива со сдвигом

for i: integer: = 1 to n do write (a[i] : 3);

end.