Есть массив из b(10) чисел,найти произведение отрецательных элементов. [Ответ]

Lempard, задай условия. [Ответ]

-3/3/4/7/8/9/5/-5/9/7/ [Ответ]

Program amf;
var b;array[1..10] of integer;
i,s:integer;
begin
s:=1;
// ввод масивa
for i:=1 to10 do
if b[i]<0 then s:=s*b[i];
Writeln(s);

хенон так ? или ещо че [Ответ]

Lempard, вроде так, спроси в разделе програмирование. [Ответ]