задан массив состоящий из 10 элементов, определить произведение всех нечётных элементов в массиве

Question

Информатика

Миня

19 июля, 01:56

задан массив состоящий из 10 элементов, определить произведение всех нечётных элементов в массиве

+2

Ответы (1)

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

Эсфира · Answer 1

var

mas:array[1 ... 10] of integer;

i, proiz:integer;

begin

proiz:=1;

for i:=1 to 10 do

begin

readln (mas[i]) ; / / заполняем массив

if (mas[i] mod 20) then proiz:=proiz*mas[i]; / / проверяем: является элемент массива нечт.

end;

writeln (proiz) ; / / выводим произведение нечетных элеметов массива

end.