Дан массив B размерности N. Найти произведение положительных четных элементов массива.

Progra gt;
var b:array[1..10000] of integer;
n,i,p:linteger;
begin
read(n);
p:=1;
for i:=1 to n do
begin
read(b[i]);
if(b[i]>0)and(b[i] mod 2=0)then p:=p*b[i];
end;
writeln(p);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.