Дается последовательность из N чисел. Выведите сумму нечетных чисел среди них. Формат входных данных: Первая строка входного файла содержит целое число N (1 меньше =N меньше =1000). В следуйщей строке задаются N поожительных це...
Дается последовательность из N чисел. Выведите сумму нечетных чисел среди них. Формат входных данных: Первая строка входного файла содержит целое число N (1<=N<=1000). В следуйщей строке задаются N поожительных целых чисел, каждая из которых меньше или равно 1000. Формат выходных данных
Выведите ответ к задаче.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы