Пожалуйста помогите решить 3 задачи с массивами. Заранее благодарен.

[student2008]

1) Даны целые числа N (>2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.

2)Дан целочисленный массив A размера N. Переписать в новый целочисленный мас-сив B того же размера вначале все элементы массива с четными номерами, а затем — с нечетными:A2, A4, A6, ..., A1, A3, A5, ... .Условный оператор не использовать.

3)Дан массив размера N и целые числа K и L (1 < K < L < N).Найти среднее арифметическое всех элементов массива, кроме элементов с номерами от K до L включительно.

[Stilet]

1) Даны целые числа N (>2), A и B. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.

С потолка:

var q:array[1..10] of integer;sm,a,b,i:integer;
begin
 a:=2;b:=3;sm:=a+b;
 q[1]:=a;q[2]:=b;
 write(q[1]:5,q[2]:5);
 for i:=3 to 10 do begin
  q[i]:=sm;
  sm:=sm+sm;
  write(q[i]:5);
 end;
readln;
end.

[Gongled]

Сообщение от student2008

2)Дан целочисленный массив A размера N. Переписать в новый целочисленный мас-сив B того же размера вначале все элементы массива с четными номерами, а затем — с нечетными:A2, A4, A6, ..., A1, A3, A5, ... .Условный оператор не использовать.

program pr;
uses CRT;
const
n = 11;
var
a, b : array[1..n] of integer;
i, m : integer;
begin
clrscr;
randomize;

for i:=1 to n do
begin
     a[i] := random(10);
     write(a[i]:4);
end;

m := n div 2;

for i:=1 to m do
begin
     b[i] := a[2*i];
     b[i+m] := a[2*i-1];
end;

writeln;
for i:=1 to n do
begin
     write(b[i]:4);
end;

end.

[NoHeart]

2)
const n=10;
var A,B:array[1..n] of integer;
i,j:integer;
begin
j:=0;
for i:=1 to n do
begin
a[i]:=random(100);
write(' ',a[i]);
end;
for i:=1 to trunc(n/2) do
begin
j:=j+2;
b[i]:=a[j];
end;
j:=1;
for i:=trunc(n/2) to n do
begin
a[i]:=b[j];
j:=j+2;
end;
writeln;
for i:=1 to n
do write (' ',b[i]);
end.

Писал без паскаля, возможны ошибки.