Помогите решить задачи по информатике.

program primer1;
uses CRT;
var a: array [1..5] of integer; b: array [1..20] of integer; c: array [1..15] of integer; i,k,sum1,sum2,p: integer;
begin
randomize; clrscr; k:=0; sum1:=0; sum2:=0; p:=1;
for i:=1 to 5 do
begin
a:= random(20);
if a < 0 then inc(k);
end;
for i:=1 to 20 do
begin
b:= random(20);
if b mod 2 = 0 then sum1:=sum1 + b
else p:=p * b;
end;
for i:=1 to 15 do
begin
c:= random(20);
if (c mod 2 = 0) and (c > 0) then sum2:=sum2 +c;
end;
writeln ('Отрицательныъ элементов массива А: ', k, '; ', 'Сумма чётных элементов массива В: ', sum1, '; ', 'Произведение нечётных элементов массива В: ', p, '; ', 'Сумма чётных положительных элементов массива С: ', sum2);
end.

Минус этого кода в том, что здесь никогда не будет отрицательных чисел. Лень было расписывать ввод каждого элемента + не точное условие заполнения массивов. Можно в разделе описания констант заполнить их вручную, или же организовать циклический ввод для каждого массива.
Дерзай.

То что ты нам написал, это не задачи. А начало задач. Мы тут ничего не сделаем.

Вы не сказали какой язык программирования использовать. Или может его вообще не использовать?
Алгоритм действия:
1. С помощью цикла сравниваете элементы массива array [ i ] < 0 и записываете сколько совпадений.
2. Вытаскиваете четные как [2*n] элемент массива, а нечетные как [2n + 1] и тоже работаете в цикле.
3. Находим четные и положительные и сумму их. Тоже можно привязать циклы.

дай почту, я тебе все напишу
или сам пиши мне dima32ml@yandex.ru