41

Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение…

30 марта 2023

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

категория: информатика

46

var a: array [1… n] of integer; j, k, max: integer: begin for j: =1 to n doreadln (a[j]); sum: =0For j: =1 to n doif a[j]mod=0 then sum: =sum*a[j]Writeln (sum); end.

Знаете ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...