Анастасия Тришечкина
АМ
Андрей Мезенцев
И в чем вопрос?
sum:=0; count:=0;
for k:=1 to N do sum:=sum+mass[k];
if odd(sum) then
for k:=1 to N do if odd(mass[k]) then inc(count);
else
for k:=1 to N do if not odd(mass[k]) then inc(count);
writeln(count);
АР
Алексей Рудковский
имобилазер уже ответил! осталось немного подумать, внимательно посмотреть и добавить проверку на положительность элементов