Question

Дается последовательность из N чисел. Выведите сумму нечетных чисел среди них. Формат входных данных: Первая строка входного файла содержит целое число N (1<=N<=1000). В следуйщей строке задаются N поожительных целых чисел, каждая из которых меньше или равно 1000.

  Формат выходных данных
Выведите ответ к задаче.

Answer 1

program chisla;
var a, l: string; n, b, c, i, d, e:integer;
begin
c:=0;
e:=0;
writeln('Введите количество чисел');
readln(n);
if 1<=n<=1000 then
writeln('Введите числа');
readln(a);
b:=length(a);
for i:=1 to b do
c:=c+1;
if a[i]=' ' then l:= copy(a,i-c,i-1);
d:=strtoint(l);
if d mod 2>0 then e:=e+d;
writeln(e);
end.