Вычислить m[0]n[0] +m[1]n[1] +…+m[k]n[k], где k = min{p,q} - 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[0]n[0] +m[1]n[1] +…+m[k]n[k], где k = min{p,q}»

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

                            Private Sub Form_Activate()
Dim L(), m&(), n&(), p&, q&, i&, s#
L = Array(13, 4, -2, 6, 7, -1, -5, 2, -3, 4)
For i = UBound(L) To 0 Step -1
  If L(i) < 0 Then
    ReDim Preserve m(p)
    m(p) = L(i)
    p = p + 1
  Else
    ReDim Preserve n(q)
    n(q) = L(i)
    q = q + 1
  End If
Next i
For i = 0 To IIf(p < q, p, q) - 1
  s = s + m(i) * n(i)
Next i
Print s
End Sub
                        