[Zylex]

Сообщение от AndrYxo

Это снова я - слушайте - написал прогу - работает вроде - вот по условию: Наити произведение положительных элементов масива А={a[i]}, удовлетворяющих условию:
с<=a[i]<=d

Попробуйте этот кусок

Код:

if (a[i]>=c) and (a[i]<=d) and (a[i]>0) then

заменить на

Код:

   if (a[i]>0) then
      if (a[i]>=c) and (a[i]<=d) then