• Помогите с паскалем.
    Ввести одномерный массив A из 12 элементов. Определить в нём
    произведение чётных элементов.

Ответы 5

  • Спасибо большое)
    • Автор:

      peyton861
    • 6 лет назад
    • 0
  • не за что
  • а сможете ещё помочь?)
    • Автор:

      honey
    • 6 лет назад
    • 0
  • чем смогу помогу
    • Автор:

      misty50
    • 6 лет назад
    • 0
  • program al;6const n=12;var a : array[1..n] of integer;p,i:integer;begin    writeln('vvedite massiv=');    for i := 1 to n do    readln (a[i]);    p:=1;    for i := 1 to n do    if a[i] mod 2=0 then p:=p*a[i];    writeln('proizwedenie ciotnih elementov=',p);    readln;    end.
  • Добавить свой ответ

Войти через Google

или

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

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

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