Const N=2000;
Var a: array [1..N] of integer;
i, k: integer;
begin
for i:=1 to N do
readln(a[i]);
k:=0;
for i:=1 to N do
begin
if a[i] mod 2 = 1 then k:=k+1;
end;
if k mod 2 = 0 then writeln(k)
else writeln(N-k);
end.
Объяснение:
Значение суммы можно не вычислять, так как требуется только чётность суммы, а она однозначно определяется количеством нечётных элементов. Количество чётных элементов, если оно потребуется, можно вычислить, зная общее число элементов и количество нечётных.
