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

Question

Информатика

Владимир

3 декабря, 21:56

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

+5

Ответы (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.