Дан массив из 15 целых чисел.

Найти произведение элементов массива, кратных 3.

Элементы массива, значения которых = 0, не считать кратные 3.

Sample Input 1:

-5 4 6 3 - 1 7 0 7 8 - 4 - 6 - 9 7 - 2 1

Sample Output 1:

972

Sample Input 2:

-10 - 2 - 5 0 8 2 8 - 8 5 - 3 8 - 2 - 9 - 6 - 9

Sample Output 2:

1458

Sample Input 3:

5 5 7 5 8 - 10 8 4 - 5 - 1 - 5 9 - 5 - 8 0

Sample Output 3:

9

Question

Информатика

Самаят

22 февраля, 20:48

Дан массив из 15 целых чисел.

Найти произведение элементов массива, кратных 3.

Элементы массива, значения которых = 0, не считать кратные 3.

Sample Input 1:

-5 4 6 3 - 1 7 0 7 8 - 4 - 6 - 9 7 - 2 1

Sample Output 1:

972

Sample Input 2:

-10 - 2 - 5 0 8 2 8 - 8 5 - 3 8 - 2 - 9 - 6 - 9

Sample Output 2:

1458

Sample Input 3:

5 5 7 5 8 - 10 8 4 - 5 - 1 - 5 9 - 5 - 8 0

Sample Output 3:

9

+3

Ответы (1)

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

Еуфрозена · Answer 1

Var

a:array[1 ... 15] of Integer;

i, p:Integer;

begin

p:=1;

for i:=1 to 15 do

begin

read (a[i]) ;

if (a[i] mod 3 = 0) and (a[i] 0) then p:=p*a[i];

end;

Writeln (p) ;

end.