задача с массивом

[Serge_Bliznykov]

Vanta11a, есть грубая ошибка в решении! Вы забыли присвоить r единицу:

 r:=1

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

хотя что то я даже не рассматривал сделать прогу через логический тип..

а вот это и не обязательно совсем.
Можете использовать переменную ЛЮБОГО типа.
Да хоть ту же R
главная задача, определить, есть ли в списке нужное значение. Если есть - переменную присваивайте одному числу, нет - оставляйте как было до цикла.
например:

   r:=1;
   for i:=1 to N do
     if A[i]=q then   begin
        r:=0;
        break;
     end;

   if r=1 then {значит не было компонент равных q}
      for i:=1 to N do r:=r*A[i];

   Writeln(' r = ', r);

p.s. задача очень простая. рекомендую её тщательно разобрать. До каждой строчки и оператора - что делает и для чего это нужно!