В массиве из 10 элементов найти сумму всех четных элементов и произведение элементов, которые больше 10 и делятся на 5 паскаль

var a: array [1..10] of integer;

   ch, proiz, i: longint;

begin

read(a);

ch := 0;

proiz := 1;

for i := 1 to 10 do

begin

   if (a[i] mod 2 = 0) then

       ch := ch + a[i];

   if (a[i] mod 5 = 0) and (a[i] > 10) then

       proiz := proiz * a[i];

end;

writeln(ch);

writeln(a[i]);

end.

Объяснение:

создаем массив из десяти элементов и две переменные: ch(сумма), proiz(произведение).

Далее вводим массив с клавиатуры и в цикле начинаем проверять его элементы:

Если остаток от деления(mod) равен нулю(т.е число делится на два), то мы просто пихаем его в сумму, а если число делится на пять и больше десяти, то мы запихиваем его в произведение(перед циклом proiz = 0, так как 0 * любое число = 0).

После завершения цикла выводим сумму и произведение на экран.

Надеюсь всё понятно)