Помогите с паскалем.
Ввести одномерный массив A из 12 элементов. Определить в нём
произведение чётных элементов.
Program al;6
const n=12;
var a : array[1..n] of integer;
p,i:integer;
begin
writeln(vvedite massiv=);
for i := 1 to n do readln (a[i]);
p:=1; for i := 1 to n do
if a[i] mod 2=0
then
p:=p*a[i];
writeln(proizwedenie ciotnih elementov=,p);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
