Дан массив размера N. Осуществить сдвиг элементов массива вправо на одну позицию (при этом A1 перейдет в А2, А2 - в А3,.., AN-i - в AN, а начальное значение последнего элемента будет потеряно). Первый элемент полученного массива принять равным 0.

const n=10;

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

i: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i],' ');

end;

writeln;

for i:=n downto 2 do a[i]:=a[i-1];

a[1]:=0;

for i:=1 to n do write(a[i],' ');

writeln;

end.

Пример:

-9 -8 -8 -6 -4 -4 5 2 7 -6  

0 -9 -8 -8 -6 -4 -4 5 2 7

const n=10;

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

i:integer;

begin

write(' Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:3,' ')

end;

writeln;

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

a[1]:=0;

write('Сдвинутый массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.