Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

В Паскале пожалуйста.
Для N вводимых с клавиатуры чисел определить количество четных чисел и
сумму нечетных чисел.

Ответ оставил Гость

Var n, d, i, c, u: integer;
begin
write(n = );
readln(n);
for i:=1 to n do
begin
readln(d);
if d mod 2 = 0 then c:=c+1 else u:=u+1;
end;
writeln(Четных , c);
writeln(Нечетных , u)
;end.