Задача:
Среди заданных чисел найти сумму всех четных цифр.
Формат ввода:
На первой строке задано количество чисел последовательности (неотрицательное, целое число не превосходящее 30000).
На второй - элементы последовательности (целые числа в диапазоне от -30000 до 30000) через пробел.
Формат вывода:
Целое число.
Пример входных данных
5
1 -20 -3 40 0
Пример выходных данных
6
Пояснение:
2 + 4 = 6
Паскаль ABC
Ответы на вопрос
Ответил vimmortal2
0
Программа:
var
n, i, s, j: integer;
begin
write('Количество элементов в последовательности: '); readln(n);
for i := 1 to n do begin
read(j);
if j mod 2 = 0 then s := s + j;
end;
writeln(s);
end.
Новые вопросы