Записать в массив m подряд только отрицательные элементы массива L, а в массив n - положительные - VB

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

Ввести одномерный массив L= {13, 4, -2, 6, 7, -1, -5, 2, -3, 4} . Записать в массив m подряд только отрицательные элементы массива L, а в массив n - только положительные элементы массива L, взятые в обратном порядке их следования. Вычислить m[0]n[0]+m[1]n[1]+...+m[k]n[k] , где k= min{p,q} .

Решение задачи: «Записать в массив m подряд только отрицательные элементы массива L, а в массив n - положительные»

textual
                            Листинг программы 
                        

                            Dim mas(20) As Integer, i As Integer
Private Sub Command1_Click()
Dim Positive As Integer, Negative As Integer
Randomize 
   For i = 0 To 19
        mas(i) = Int(50 * Rnd - 19)
        Print mas(i);
      If mas(i) > 0 Then
              Positive = Positive + 1 
        ElseIf mas(i) < 0 Then
            Negative = Negative + 1 
        End If
    Next i
Print
Print "Отрицательных : " & Negative & vbCrLf & "Положительных : " & Positive & vbCrLf & "Нулевых : " & Val(20 - Positive - Negative)
 
End Sub
                        

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

7 голосов , оценка 3.714 из 5

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