Дан одномерный массив размера n (n считывается с клавиатуры). найти произведение всех элементов этого массива, кратных трем. если таких элементов нет, вывести на экран 0.
EnemySSS
2
24.04.2019 18:20
1 
Популярные вопросы
- На лето три семьи — Ивановы, Петровы и Осиповы — уехали на дачу. Каждая семья...
1 - Какие условия для развития капитализма были созданы реформами 60-х годов?...
1 - Умоляю напишите быстро и вы получите...
2 - Определи значение x, соответствующее значению y=0 для линейного уравнения...
3 - Как упрощать выражения ?!?! Как например у это: (c-2)*(c+3)-(c-1)^2 ???...
1 - На сколько процентов площадь жилого дома больше площади бани? если баня равна...
2 - В книге 320 страниц.Прочитали 1/4 всей книги,а потом 1/2 остатка.Сколько...
3 - Але в цей час відразу ж хiд човна сповільнився. Усе похит-нулося вперед...Сіли...
1 - Найдите лишнее слово в каждой строке и объясните, почему оно лишнее. 1. Танцую,...
3 - решить задачи по физике Динамика материальной точки...
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.