Задать вопрос Регистрация
Помочь другим

  • Составьте программу вычисления в массиве A(N) произведения четных элементов.

Ответы 2

  • program csdnciuo;

    uses crt;

    'var a:array [1..100] of integer;

           i,p,n:integer;

    begin

    clrscr;

    readln(n);

    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(p);

    readln;

    end.

    • Автор:

      luna62
    • 6 лет назад
    • 0

  • var    a: array [1..100] of integer;    i, p, n: integer;begin    p := 1;    read(n);        for i := 1 to n do     begin        read(a[i]);        if a[i] mod 2 = 0 then             p := p * a[i];    end;        writeln(p);end.

    • Автор:

      sable
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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