Помогите пожалуйста решить задачу в Pascal вот Задача:Заполните с клавиатуры массив К, состоящий из N элементов. Найдите произведение четных элементов.Если сделаете отправьте скриншотом из паскаль
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
