Question

Помогите пожалуйста решить задачу в Pascal вот Задача:Заполните с клавиатуры массив К, состоящий из N элементов. Найдите произведение четных элементов.Если сделаете отправьте скриншотом из паскаль

Answer 1

const
m=1000;
var
k:array[1..m]of integer;
i,n:integer;
p:real;
begin
p:=1;
   writeln('INPUT n');
   readln(n);
       for i:=1 to n do
         begin
           read(k[i]);  {массив вводится через пробел, последний элемент Enter}
                if k[i]mod 2=0 then
                   p:=p*k[i];
          end;
writeln;
writeln('p = ',p:4:0);
end.