begin
var mas := ArrRandomInteger(10, 1, 30);
mas.Println;
var composition := 1;
for var i := 0 to mas.Length - 1 do
begin
if (mas[i] mod 5 = 0) then
begin
composition := composition * mas[i];
end;
end;
write(composition);
end.
Объяснение:
begin // Начало программы
var mas := ArrRandomInteger(10, 1, 30); // Объявление массива размером 10 + заполнение массива случайными значениями из диапазона [1, 30].
mas.Println; // Вывод массива
var composition := 1; // Переменная, хранящая произведение чисел, которые делятся на 5 без остатка
for var i := 0 to mas.Length - 1 do // Идём от нуля до размера массива - 1
begin // Начало цикла
if (mas[i] mod 5 = 0) then // Если значение массива с индексом i делится на 5 без остатка
begin // Начало условного оператора
composition := composition * mas[i]; // Умножаем произведение на значение массива
end; // Конец условного оператора
end; // Конец цикла
write(composition); // Выводим ответ
end. // Конец программы
Читайте и поймёте:
Введем обозначения: n – количество элементов в массиве; А – имя массива; i – индекс элемента массива; Ai – i-й элемент массива A; s – сумма нечетных элементов массива, кратных 3; p – произведение нечетных элементов массива, кратных 3.
Входные данные: n, A.
Выходные данные: s, p.
Первоначально сумма искомых элементов равна нулю: не просуммировано ни одно слагаемое, то есть s:=0. Далее, используя любой оператор цикла, просматриваем весь массив от первого и до последнего элемента. И если при этом элемент массива нечетный и кратен 3, то к уже накопленной сумме добавляется очередное слагаемое, т.е. s:= s + A[i]. Здесь слева и справа от знака присваивания записано имя одной и той же переменной s, именно это обеспечивает постепенное накопление суммы: s справа – уже вычисленное известное значение суммы, s - ее новое, вычисляемое значение.
При просмотре массива можно сразу вычислить и произведение элементов массива, удовлетворяющих заданному условию. Произведение вычисляется с оператора p:=p*A[i]. При этом p справа и p слева имеют разные значения: p справа – уже известное, вычисленное ранее значение произведения, p слева – новое, вычисляемое его значение. Первоначально искомое произведение равно единице, т.е. p:=1.
При решении этой задачи можно использовать любой из видов циклов.
сорриии нужны ещё раз сорри