Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
иван-занимается легкой атлетикой,петр-баскетболом, алексей-хоккеем, андрей-футболом
s : = 1 ;
for i : = 1 to n do
if a[i] mod 3 = 0 then
s : = s * a[i];
writeln(s);
Популярные вопросы