помогите решить 3 задачи с массивами!

[эра]

помогите решить 3 задачи с массивами!!!!!!!Sos

1.В одномерном массиве вычислить корень квадратный от произведения отрицательных элементов
2.В массиве М(6) найти количество и среднее арифметическое положительных элементов
3.Дан одномерный массив D(9).Все орицательные члены последовательности уменьшить в 3 раза,а положительные заменить на их корень..

А надо ко всем заданиям составить блок схему алгоритма и написать программу

[SNUPY]

Блок схему рисовать лень, но проги накалябаю
1)

var 
  Mas:array of real;
  Count, i:Cardinal;
  Prois:Real;
begin
//ввод
Write('Длина массива?');
Readln(Count);
Setlength(Mas, Count);
For i:=0 to Count-1 do
begin
  Readln(Mas[i]);
end;
//Решение
Prois:=1;
For i:=0 to Count-1 do
begin
  if Mas[i]<0 then Prois:=Prois*Mas[i];
end;
if Prois>=0 then Writeln(sqrt(Prois)) 
  else Writeln(sqrt(-Prois),'*i');
end.

Не проверял но должно работать

[SNUPY]

2)

var 
  Mas:array of real;
  Count, i, k:Cardinal;
  Sum:Real;
begin
//ввод
Write('Длина массива?');
Readln(Count);
Setlength(Mas, Count);
For i:=0 to Count-1 do
begin
  Readln(Mas[i]);
end;
//Решение
Sum:=0;
k:=0;
For i:=0 to Count-1 do
begin
  If Mas[i]>0 then Sum:=Sum+Mas[i];
  Inc(k);
end;
Writeln('Kol-vo=',k);
Writeln('Sred. Arif.=',Sum/k);
end.

[SNUPY]

var 
  Mas:array of real;
  Count, i:Cardinal;
begin
//ввод
Write('Длина массива?');
Readln(Count);
Setlength(Mas, Count);
For i:=0 to Count-1 do
begin
  Readln(Mas[i]);
end;
//Решение
For i:=0 to Count-1 do
begin
  If Mas[i]<0 then Mas[i]:=Mas[i]/3
    else Mas[i]:=Sqrt(Mas[i]);
end;
Writeln('');
For i:=0 to Count-1 do
begin
  Writeln(Mas[i],'; ');
end;
end.

[Xardas]

Вообще, как искать положительные и отрицательные элементы в масссиве и их количество есть в любой книге по программированию для начинающих.

1)

P:=1;
for i:=1 to n do
if m[i]<0 then p:=p*m[i];
kv:=sqrt(p);

2)

for i:=1 to 6 do
if m[i]>0 then 
begin
inc(n);
s:=s+m[i];
end;
Sr:=S/n

3)

for i:=1 to 9 do
if m[i]<0 then m[i]:=m[i]/3
else m[i]:=sqrt(m[i]);

Ну остальное сами

[эра]

Спасибо!!!!!!!!!!!