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

Question

Информатика

Дунятка

10 января, 03:50

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

+2

Ответы (1)

Знаете ответ на вопрос?

Геруша · 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.