1) Произведение отрицательных чисел

uses crt;

var

a:array [1..100] of integer;

i,n,s:integer;

begin

clrscr;

write ('Введите количество элементов массива:');

readln (n);

for i:=1 to n do

a[i]:=random (15)-10;

write (a[i],' ');

writeln;

for i:=1 to n do

if a[i]<0 then

 s:=s*a[i];

writeln ('s=',s);

readln

end.

____________

2) Сумма четных чисел

uses crt;

var

a:array [1..100] of integer;

i,n,s:integer;

begin

clrscr;

write ('Введите количество элементов массива:');

readln (n);

for i:=1 to n do

a[i]:=random (15)-10;

write (a[i],' ');

writeln;

for i:=1 to n do

if a[i] mod 2 = 0  then

 s:=s+a[i];

writeln ('s=',s);

readln

end.

__________

3) Последнее попробуй сам решить. Удачи:)