FEOFAN
http://feofan.com
Епт, спасибо=) Видимо сказалось ночь(а может и моя невнимательность)перечитай мой пост еще раз.
а если все элементы нечетные, что возвратит твоя прога? 1? а надо?
и еще. 0 - четное?
Код:
program m;
uses crt;
m:array[1..255] of byte;
i,p:integer;
begin
{тут код, где вводится массив}
i:=1;
p:=1;
while i<256 do begin
if (((mas[i] mod 2) = 0) and (mas[i] <>0)) then p:=p*mas[i];
i:=i+2;
end;
if (p<>1) then writeln('Произведение: ',p) else writeln('бла-бла-бла, не обнаружено!');
end.