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

Question

Информатика

Яша

14 июня, 04:09

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

+3

Ответы (2)

Знаете ответ на вопрос?

Лебния · Answer 1

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.

Вевея · Answer 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.