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

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

var
a: array[1..10] of integer;
i, firstElement, lastElement: integer;

begin
// заполнение массива
for i := 1 to 10 do
a[i] := i * 10;

// вывод исходного массива
writeln('Исходный массив:');
for i := 1 to 10 do
write(a[i], ' ');
writeln;

// циклический сдвиг элементов влево
firstElement := a[1];
for i := 1 to 9 do
a[i] := a[i + 1];
a[10] := firstElement;

// поменять местами первый и последний элементы
lastElement := a[10];
a[10] := a[1];
a[1] := lastElement;

// вывод измененного массива
writeln('Массив после сдвига и обмена первого и последнего элементов:');
for i := 1 to 10 do
write(a[i], ' ');
writeln;
end.