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

Ответы 1

  • program llllll;varA: 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.
    • Автор:

      carloboa
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years