Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение всех элементов этого массива, кратных трем. Если таких элементов нет,
5-9 класс
|
вывести на экран 0.
Анонимус222
08 апр. 2017 г., 3:44:35 (7 лет назад)
Viki1901
08 апр. 2017 г., 6:18:02 (7 лет назад)
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.
Ответить
Другие вопросы из категории
Найти Сумму Чисел Кратных 3 для ряда 1..n - задача 1
Найти произведение чисел, оканчивающихся на 5 - 2 задача
Читайте также
1) Дан одномерный массив из 12 элементов. Составить программу заполняющую массив целыми числами в интервале -20 до 15 2)Требуется
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный
Помогите решить задачи на паскаль.
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.
Даны два целых числа А и В (А < В) . Найти произведение всех целых чисел от А до В включительно.
Входные данные: ввести два целых числа А,В (1 <=А,В<=10).
Входные данные: вывести произведение всех целых чисел от А до В включительно.
Вы находитесь на странице вопроса "Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение всех элементов этого массива, кратных трем. Если таких элементов нет,", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.