Составить массив из 7 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче

Question

Яков

12 марта, 06:49

+4

Ответы (1)

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

Марлеся · Answer 1

Cls

dim a (7)

for i=1 to 7

input a (i)

next i

z=1:s=0

for i=1 to 7

if a (i) mod 2=0 then

z=z*a (i)

else

s=s+a (i)

end if

print s, z