Дан массив B размерности N. Найти произведение положительных четных элементов массива.

Question

Информатика

Христеня

6 марта, 05:00

Дан массив B размерности N. Найти произведение положительных четных элементов массива.

+1

Ответы (2)

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

Ася · Answer 1

Progra gt;

var b:array[1 ... 10000] of integer;

n, i, p:linteger;

begin

read (n) ;

p:=1;

for i:=1 to n do

begin

read (b[i]) ;

if (b[i]>0) and (b[i] mod 2=0) then p:=p*b[i];

end;

writeln (p) ;

end.

Корнюха · Answer 2

VB.

Dim B () As Integer

Randomize ()

Dim k As Integer

Dim i As Integer

Dim Summ as Long

Summ=1

i = InputBox ("Введите N")

ReDim A (i)

For k = 0 To i

B (k) = Rnd () * - 1000 + 500

If B (k) > 0 and B (k) mod 2 = 0 then Summ=Summ*B (k)

Next

MsgBox (Summ)