Задать одномерный массив Х, который содержит 14 элементов. Вычислить произведение D=K*L Где К-положительные элементы, а L-отрицательные.

Не верно. Так вы посчитаете произведение всех элементов.

Если в паскале то:X: array[1..14] of integer/string/real/ и т.д.var D, K, L : integer;begind:=K*Lend.