Паскаль, домашка, одномерный массив и функции, ХЭЛП!

program GiveMe10BallsForThisAnswer;
var a:array[1..20] of integer;
i, pr, s: integer;

function proizv: integer;
var i, res: integer;
begin
res:=1;
for i:=1 to 20 do
if a<0 then res:=res*a;
proizv:=res;
end;

function summa: integer;
var i, res: integer;
begin
res:=0;
for i:=1 to 20 do
if a>0 then res:=res+a;
summa:=res;
end;

begin
randomize;
for i:=1 to 20 do a:=random(100)-50;
pr:=proizv;
sum:=summa;
writeln('произведение отрицательных = ', pr);
writeln('сумма положительных=', sum);
readln;
readln;
end.

// нереальная благодарность принимается в виде 20 рублей на номер 89187158262

Вот готовая проверенная прога

Program Mine;
uses crt;
var i,n,Pr,Sum:integer;
Mas:array[1..20] of integer;

//Процедура заносит в aPr произведение всех отрицательных чисел, в aSum - сумму всех положительных чисел.
//В aMas заносим массив любого размера
procedure MyProc(aMas:array of integer; var aPr,aSum:integer);
var ai:integer;
begin
aPr:=1; aSum:=0;
For ai:=Low(aMas) to High(aMas) do
begin
if aMas[ai]<0
then aPr:=aPr*aMas[ai]
else inc(aSum,aMas[ai]);
end;
end;

begin
clrscr;
writeln (' Vvedite 20 cisel ->');
For i:=1 to 20 do
begin
read(n);
Mas:=n;
end;
MyProc(Mas,Pr,Sum);
writeln (' Proizvedenie otricatelnix chisel = ',Pr);
writeln (' Summa polojitelnix chisel = ',Sum);
readkey;
end.

Программу писать в лом, а на словах подскажу.
делаешь две функции с произведением и суммой.
обходишь циклом массив и: if (myArray<0) then [вызывем функцию в которой производится наше умножение] else [вызываем функцию сложения] ;

соответственно у нас должны быть 2 переменные, в которых мы будим хранить сумму и произведение.

И для начинающих.. . не забудь в начале переменную суммы выставить в 0, а произведения в 1.

удачи.