Определить количество и сумму нечетных чисел в файле

[alex377]

Дан файл f, компоненты которого являются целыми числами. Найти:
а) количество чётных чисел среди компонент;
б) сумму нечётных чисел;



с количеством чётных вроде разобрался, а как найти сумму нечетных чисел?

[newerow1989]

сумму нечетных чисел

If a mod 2=1 then s:=s+a;

[Poma][a]

If a mod 2=1 then s:=s+a;

Числа целые. Могут быть и отрицательные

[Вадим Мошев]

поэтому, как вариант:

If abs(a) mod 2=1 then s:=s+a;

или вообще:

If odd(a) then s:=s+a;