profile
Опубликовано 4 года назад по предмету Информатика от dimon37

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

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

  1. Ответ
    Ответ дан BlackyFox
    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.