Вычислите сумму только четных чисел и определите количество нечетных чисел из n введенных чисел. 0 - ни четное, ни нечетное число. Введите количество цифр и введите сами котировки.

Если число делится без остатка на 2, его последняя цифра четная. Увеличиваем на 1 счетчик четных цифр even. Иначе последняя цифра числа нечетная, увеличиваем счетчик нечетных цифр odd.

program z1;

var n,i,s,k,a:integer;

begin

s:=0;

k:=0;

write('Введите количество чисел: ');

readln(n);

for i:=1 to n do

begin

write('Введите число: ');

readln(a);

if a mod 2 = 0 then s:=s+a;

if a mod 2 <> 0 then k:=k+1

end;

writeln('Сумма чётных чисел: ',s);

writeln('Количество нечётных чисел: ',k)

end.

Объяснение:

Вводим количество чисел

В цикле:

вводим число

если число чётное, то считаем сумму

если число нечётное, то считаем количество

Выводим сумму и количество на экран