Вот тебе непроверенный вариант. Program {имя программы};
Var m,i:integer; p:real;
C:array[1..1000] of real;
Begin
p:=1
writeln('Сколько чисел в массиве?'); read(m);
writeln('Введите массив');
For i:=1 to m do
read(C[i]);
For i:=1 to m do
IF C[i]<0 then p:=p*C[i];
writeln(p:3:2);
End.
А вообще советую прочитать книгу "Основы программирования для чайников".