Question

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

Answer 1

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

Answer 2

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

Answer 3

Для нахождения произведения отрицательных элементов массива переменной P, вместо многоточия нужно поставить следующее условие:

if X[k] < 0 then P := P * X[k];

Это условие проверяет, является ли элемент X[k] отрицательным. Если это так, то он умножается на текущее значение P. Если элемент положительный или равен нулю, то никаких операций не выполняется и переходим к следующему элементу массива.