Question

Напишите программу, которая в

последовательности целых чисел определяет их сумму и количество чётных чисел. Программа получает на вход

целые числа и количество введённых чисел. Программа должна вывести два числа: сумму последовательности и

количество чётных чисел. Написать в ПАСКАЛЕ!

Answer 1

Program prog;

var n, i, s, c, t: integer;

begin

   s:=0;

   c:=0;

   read(n);

   for i:=1 to n do begin

       read(t);

       s:=s+t;

       if t mod 2 = 0 then c:=c+1;

   end;

   writeln(s,' ', c);

end.