ОДНОМЕРНЫЙ МАССИВ

[sunrise7]

Добрый день) помогите пожалуйста решить задачу PascalABC - действия над одномерными массивами..


Дан действительный массив размера N. Осуществить циклический сдвиг элементов массива: а) влево на одну позицию; б) вправо на одну позицию.

[Necare]

Лево:

Var
i,n:integer;
P : array [1..20] of integer;
A : array [1..20] of integer;
begin
writeln('Enter the number of elements');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
P[1]:=A[2];
P[n]:=A[1];
end;
for i := 2 to n-1 do
P[i] := A[i+1];
for i:=1 to n do
write(P[i]);
end.

Право:

Var
i,n,m :integer;
P : array [1..20] of integer;
A : array [1..20] of integer;
begin
writeln('Enter the number of elements');
readln(n);
writeln('Enterr the value');
readln(m);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i := 1 downto m do
P[i] := A[n-m+i];
for i:=n-m downto 1 do
A[i+m]:= A[i];
for i := 1 to m do A[i]:=P[i];
for i:=1 to n do
write(a[i]);
end.