6. Переставьте первый элемент массива на последнее место, второй — на первое, третий — на второе и т. д.

Объявим переменную buf. В эту переменную запишем первый элемент массива, чтобы он не потерялся. Затем в цикле пройдёмся по массиву и присвоим каждому элементу массива следующий элемент, т.е. будем сдвигать все элементы влево. После окончания цикла присвоим последнему элдементу массива переменную buf, которая хранит первый элемент.

var a: array[1..20] of integer;
 n, buf: integer;
begin
 write('Количество n =');
 readln(n);
 writeln('Элементы массива');
 for var i := 1 to n do
  readln(a[i]);
 buf := a[1];
 for var i := 1 to n do
  a[i] := a[i+1];
 a[n] := buf;
 writeln('Преобразованный массив');
 for var i := 1 to n do
   write(a[i], ' ');
end.
Другие задания