Дан массив w(6)/вычислить произведение четных элементов - вопрос №47767516 от Kostolom2005 27.01.2023 11:06

Question

Информатика: Дан массив w(6)/вычислить произведение четных элементов массива.

Kostolom2005 · Answer

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....