Дан одномерный массив A (N). Найдите произведение четных чисел этого массива.

Question

Информатика

Римуся

31 июля, 09:37

Дан одномерный массив A (N). Найдите произведение четных чисел этого массива.

+2

Ответы (1)

Знаете ответ?

Лилюня · Answer 1

Var a:array[1 ... 100]of integer; n, i:integer; begin readln (n) ; randomize; for i:=1 to n do begin a[i]:=random (100) ; write (a[i], ' ') ; end; for i:=1 to n do begin if not (odd (a[i])) then S:=S+a[i]; end; Writeln ('Summa=', S) ; end.