Вычислить произведение элементов массива с четными номерами - 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

Оцени полезность:

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы