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

Question

Информатика

Витяхя

25 января, 03:55

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

+4

Ответы (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.