ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. Массив вводится с...

Question

ПАСКАЛЬ Дан одномерный целочисленный массив A[10]. Массив вводится с клавиатуры. Написать программу, которая будет находить произведение четных элементов массива.

Answer 1

Ответ:

var a: array [1..10] of integer;

var s,i: integer;

begin

s:=1;

for i:=1 to 10 do

 begin

 read(a[i]);

 if (a[i] mod 2 = 0) then s:=s*a[i];

 end;

writeln('Произведение четных элементов массива: ',s);

end.

Comments

У тебя там ошибка небольшая, в 8 строчке должно быть не i mod 2, а a[i] mod 2

---

Согласен, спасибо

---

Можешь помочь пожалуйста https://znanija.com/task/36733487 https://znanija.com/task/36733418