Нужно, ! задан массив х[1..n].какое условие надо поставить вместо многоточия, чтобы найти произведение отрицательных элементов массива переменной p? p: =0; for k: =1 to n do begin if then p: =p*x[k]; end;

X[k]<0 
Вот что нужно подставить.

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