Question

!!!даю 35 баллов!!!
Последовательность оканчивается 0, определить сумму четных чисел, кол-во нечетных. Если есть хотя бы одно отрицательное-на экран вывести слово "отрицательное".

Answer 1

var
    s, n, a : integer;
begin
    a := 1;
    s := 0;
    n := 0;

    repeat
        readln(a);
        if a <> 0 then begin
            if a mod 2 = 0    then s += a
                            else n += 1;
            if a < 0 then
                writeln('Отрицательное');
        end
    until a = 0;
    
    writeln('Сумма четных = ', s);
    writeln('Количество нечетных = ', n)
end.