Массивы.Паскаль.Экзамен.

[ДимаСтуден]

Помогите пожалуйста, скоро экзамен, а я в массивах плохо разбираюсь!)
1.Переписать четные элементы массива X(N), где N-натуральное число, подряд в массив Y, а нечетные - подряд в массив Z.
2.Найти среднее арифметическое значение элементов заданного массива размером 15. Преобразовать исходный массив, вычитая из каждого элемента найденное значение среднего.
3.Для массива X(15) записать из место отрицательных элементов массива нули.
4.Для массива A(N) получить сумму положительных и число отрицательных элементов массива.
5.Вычислить сумму и количество элементов массива X(100) удовлетворяющих условию 0<=X<=1.
6.Задан массив D(20). Определить сумму четных и произведение остальных элементов массива.Вывести на печать значения суммы и произведения, а так же количества элементов вошедших в сумму и произведение.
7.В данном массиве A(N) найти сумму элементов, расположенных между минимальным и максимальным элементами.
8.Найти наибольший из отрицательных элементов массива X(:5) и вывести на печать элемент и его порядковый номер.
9.Из массива A(N) исключить самый большой элемент. Вывести на печать исходный и конечный массивы.
10.Дан массив A(N). Найти max(A[1]+A[n],A[2]+A[n-1], ..., A[n/2]+A[n/2+1])

[spinogryz_ua]

2)

uses crt;
var
mas:array[1..15] of real;
i:integer;
s:real;
begin
s:=0;
randomize;
for i:=1 to 15 do
begin
mas[i]:=random(50);
write(mas[i],' ');
end;
for i:=1 to 15 do
s:=s+mas[i];
s:=s/15;
for i:=1 to 15 do
begin
mas:=mas[i]-s;
writeln('Ïåðåîáðàçîâàíûé ìàñèâ');
write(mas[i]' ');
end
end.

[spinogryz_ua]

3)

uses crt;
var
mas:array[1..15] of real;
i:integer;
begin
randomize;
for i:=1 to 15 do
begin
mas[i]:=random(50)-25;
write(mas[i],'  ');
end;
writeln();
for i:=1 to 15 do
    begin
    if mas[i]<0 then
       mas[i]:=0;
       write(mas[i],' ');
    end
end.

[spinogryz_ua]

4)

uses crt;
var
s,i,n,k:integer;
mas:array[1..100] of integer;
begin
read(n);
s:=0;
randomize;
for i:=1 to n do
begin
mas[i]:=random(50)-25;
write(mas[i],'  ');
end;
writeln();
for i:=1 to n do
    begin
    if mas[i]>0 then
       s:=s+mas[i];
    if mas[i]<0 then
       k:=k+1;
    end;
writeln('suma polozhitelnih elem - ',s);
writeln('kol-vo otricatelnih elem - ',k);
end.

[ДимаСтуден]

ооОООО СПАСИБО ОГРОМНОЕ!! ХОТЬ КТО ТО ПОМОГ!