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).
После завершения цикла выводим сумму и произведение на экран.
Надеюсь всё понятно)
var i,n: integer;
begin
write('N=');
readln(n);
for i:=2 to 9 do writeln(n,'*',i,'=',n*i);
end.