Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение всех элементов этого массива, кратных трем. Если таких элементов нет, вывести на экран 0.

Question

Информатика

Тося

13 января, 00:19

Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение всех элементов этого массива, кратных трем. Если таких элементов нет, вывести на экран 0.

+2

Ответы (1)

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

Корней · Answer 1

var a: array [1 ... n] of integer;

j, k, max: integer:

begin

for j:=1 to n do

readln (a[j]) ;

sum:=0

For j:=1 to n do

if a[j]mod=0 then sum:=sum*a[j]

Writeln (sum) ;

end.