Вычислить сумму и произведение элементов массива имеющих четный номер - VB
Формулировка задачи:
Имеется одномерный массим X(N). Вычислить сумму и произведение элементов массива имеющих четный номер. Массив X(N) вывести на печать.
Решение задачи: «Вычислить сумму и произведение элементов массива имеющих четный номер»
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