Вопрос, который вызвал трудности

Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10. в PascalABC

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

Составьте программу, которая находит сумму четных чисел и произведение нечетных чисел в диапазоне от 1 до 10. в PascalABC

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Program llllll;
var
A: array [-10..10] of integer;
n, i, b, c : integer;
begin
    writeln('Введите количество чисел');
    readln(n);
    b:=0;
    for i := 1 to n do
        readln(A[i]);
    b:=0;
    c:=1;
    for i := 1 to n do
    begin
        if A[i] mod 2 = 0 then
            b:=b+A[i]
        else
            c:=c*A[i]
    end;
    writeln('Это произведение ' , c);
    writeln('Это сумма ' , b);
end.