Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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