Вычислить произведение элементов массива с четными номерами - VB
Формулировка задачи:
В одномерном массиве, состоящем из 20 целых элементов (значения элементов массива задать случайными числами из интервала [-5, 5]), вычислить произведение элементов массива с четными номерами. Преобразовать массив таким образом, чтобы сначала располагались все положительные элементы массива, а потом — все отрицательные.
Решение задачи: «Вычислить произведение элементов массива с четными номерами»
textual
Листинг программы
Sub Task() Dim A(1 to 20) As integer '::: Заполнение Randomize For i%=1 to 20 A(i%)=Rnd*10-5 Next i% '::: Произведения P_even%=1 P_odd%=1 For i%=1 to 20 If (i% mod 2) = 0 then P_even%=P_even%*A(i%) else P_odd%=P_odd%*A(i%) end if Next i% Debug.Print "Произв. четных номеров=";P_even% Debug.Print "Произв. нечетных номеров=";P_odd% '::: Перестановки For i%=1 to 19 For j%=i%+1 to 20 If A(i%) < 0 And A(j%) > 0 then tmp%=A(i%) A(i%)=A(j%) A(j%)=tmp% end if Next j% Next i% '::: Вывод For i%=1 to 20 Debug.print A(i%) Next i% End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д