Обработка одномерных массивов..please)

[sunrise7]

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

2.Дан ряд чисел Uk(Ui,U2,...,U15). выбрать компоненты,удовлетворяющие условию -0,5<Uk<8 и найти среднее арифметическое этих чисел.

3.Даны два вектора a и b по 10 компонентов в каждом. Найти максимальную разность соответствующих компонент и порядковый номер этих компонент.

[Necare]

1) Лево

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.

2) Право

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.

2)

var
chis : array [1..15] of real;
answ : array [1..15] of real;
en,ek,sredar,sum : real;
i,n,j : integer;
begin
en:=-0.5;ek:=8;n:=0;j:=1;sum:=0;sredar:=0;
writeln('Enter the value of elements');
for i:=1 to 15 do begin
readln(chis[i]);
if(chis[i]>en) then if(chis[i]<ek) then
begin
n:=n+1;
answ[j]:=chis[i];
j:=j+1;
end;
end;
for j:=1 to n do
sum:=sum+answ[j];
sredar:=sum/n;
writeln('Middle ariphmetical: ',sredar);
end.

3)

var
a1 : array [1..10] of integer;
a2 : array [1..10] of integer;
c : array [1..10] of integer;
i,max,max_n : integer;
begin
for i:= 1 to 10 do
begin
write('a1[',i,']=');
readln(a1[i]);
write('a2[',i,']=');
readln(a2[i]);
end;
max:=a1[1];
max_n:=1;
for i:=1 to 10 do
c[i]:=a1[i]-a2[i];
if c[i]>max then
max_n:=i;
writeln('Maximum difference in number ',i);
end.

Код на паскале.

[sunrise7]

спасибо Вам большое)