Задать одномерный массив х, который содержит 14 элементов. вычислить произведение d=k*l где к-положительные элементы, а l-отрицательные.

Если в паскале то:
X: array[1..14] of integer/string/real/ и т.д.

var D, K, L : integer;
begin
d:=K*L
end.