Составить массив из 7 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче
Составить массив из 7 чисел, произведение чётных и сумму нечётных виде программы ну поняли короче
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы