Дан одномерный массив из 30 элементов, составить программу для подсчета произведения четных элементов этого массива.

Question

Информатика

Денуся

11 января, 14:47

Дан одномерный массив из 30 элементов, составить программу для подсчета произведения четных элементов этого массива.

+4

Ответы (1)

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

Дуся · Answer 1

Program z1;

var A:array[1 ... 30] of integer;

i, k:integer;

begin

k:=1;

for i:=1 to 30 do begin

write ('a[', i,']=') ;

read (a[i]) ;

end;

for i:=1 to 30 do

if a[i] mod 2=0 then

k:=a[i]*k;

writeln (k) ;

end.