ПОМОГИТЕ НАПИСАТЬ ЗАДАЧИ НА ПАСКАЛЕ

Первая: смотри скриншот.
Остальные за денежный эквивалент благодарности ценой 50 руб. за решение ;–)

а какой одиот придумал вторую задачу, сравнить что больше, среднее отрицательных или среднее положительных?

Может пригодится:

Program var7_1;
const
n=10;
var
summ,i,a,b:integer;
m:array[0..n] of integer;
BEGIN
a:=-1;b:=-1;
summ:=0;
write('Массив: ');
for i:=0 to n do
begin
m[i]:=random(4)-2;
if m[i]=0 then
begin
if b<>-1 then a:=b;
b:=i;
end;
write(m[i]+' ');
end;
for i:=0 to a do summ:=summ+m[i];
writeln;
writeln('Номер предпоследнего элемента: ',a);
writeln('Сумма ',a+1,' элементов: ',summ);
END.

Program var7_2;
const
n=10;
var
max,min,i,j:integer;
z:array[1..n] of integer;
BEGIN
max:=-100; // должно быть меньше минимально возможного
min:=100; // должно быть больше максимально возможного
j:=0;
write('Массив: ');
for i:=1 to n do
begin
z[i]:=random(3);
if z[i]=0 then inc(j);
if ((j>2) and (j<5)) then
begin
if maxz[i] then min:=z[i];
end;
write(z[i]+' ');
end;
writeln;
if ((max<>-100)and(min<>100)) then writeln('Максимальный: ',max,'; Минимальный: ',min)
else writeln('Не хватает нулевых элементов! ')
END.

Program var7_3;
const
n=12;
var
max,min,i,j:integer;
e:array[0..n] of integer;
c:array[0..n] of real;
BEGIN
max:=-100;
min:=100;
j:=0;
write('Массив: ');
for i:=0 to n do
begin
e[i]:=random(3);
write(e[i]+' ');
end;
writeln;
write('Новый массив: ');
for i:=0 to n do
begin
if odd(i) then c[i]:=sqr(e[i])
else c[i]:=e[i]/2;
write(c[i],' ');
end;
END.

Program var7_4;
const
n=12;
var
i:integer;
W:array[1..n] of real;
BEGIN
write('Полученный массив: ');
for i:=1 to n do
begin
W[i]:=(i-1)/(i+1)+sin((2*i+{b}0)/(5*i+1)); // что за "b"?
write(W[i]:5:2,' ');
end;
END.

Когда уже mail додумается сделать вставку кода. Дебилы блин. >_<