Предмет: Информатика, автор: kate7love

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

Ответы

Автор ответа: archery
0

s := 1 ;

for i := 1 to n do

  if a[i] mod 3 = 0 then

      s := s * a[i];

writeln(s);

Интересные вопросы
Предмет: Алгебра, автор: adiyaaidarkyzy