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

Question

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

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

Comments

а как?

---

это вся программа

---

мой код в бейсике а ты паскаль говоришь