Задать вопрос
20 декабря, 00:07

Помогите с паскалем.

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

произведение чётных элементов.

+1
Ответы (1)
  1. 20 декабря, 04:02
    0
    Program al; 6

    const 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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите с паскалем. Ввести одномерный массив A из 12 элементов. Определить в нём произведение чётных элементов. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы