Дан массив W(6)/Вычислить произведение четных элементов массива.

Question

Дан массив W(6)/Вычислить произведение четных элементов массива.

Answer 1

Var w: array[1..6] of integer; var proizv, i: integer; begin write('введите числа: '); proizv:=1; for I:=1 to 6 do begin read (w[i]); if w[i] mod 2 = 0 then proizv:=proizv*w[I]; end; writeln; write('произведение чётных=', proizv); end.

Comments

а можно полностью программу

---

можно)

---

=)

---

мне это в Delphi нужно))