ОЧЕНЬ НУЖНО, РЕБЯТ!!!
Задан массив Х[1..N].Какое условие надо поставить вместо многоточия, чтобы найти произведение отрицательных элементов массива переменной P?
P:=0;
for k:=1 to N do begin
if ... then P:=P*X[k];
end;

Спасибо огромное))

Спасибо большое))

Условие, которое будет истинным, если очередной элемент отрицателен, т.е. правильно будет так: if X[k]<0 then ...Но вообще-то здесь ошибка: начальное значение P должно быть 1, в том виде что есть сейчас, результатом всегда будет 0.