Вычислить сумму и произведение элементов массива имеющих четный номер - VB

Формулировка задачи:

Имеется одномерный массим X(N). Вычислить сумму и произведение элементов массива имеющих четный номер. Массив X(N) вывести на печать.

Код к задаче: «Вычислить сумму и произведение элементов массива имеющих четный номер - VB»

textual
otvet=""
for i=1 to N-1
  otvet = otvet & X(i) & "; "
next i
otvet = otvet & X(i)
 
s=0
p=1
for i =2 to N step 2
  s=s+X(i)
  p=p*X(i)
next i
otvet=otvet & vbcrlf & "Сумма четных = " & s
otvet=otvet & vbcrlf & "Произ. четных = " & p

9   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ