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.