Одномерный Массив

[Castiel (Макс)]

1. Дан одномерный массив А размерности N. Найти сумму положительных элементов, произведение отрицательных элементов.
   VBA

[AleksandrH]

Что за текст, зачем он здесь?

[Castiel (Макс)]

Условие задачи , которое я не знаю как решать

[AlexP]

В чем проблема? Что пробовали? Что получилось, что не получилось?

[Castiel (Макс)]

Private Sub CommandButton1_Click()
Dim N As Integer, i As Integer
Dim X() As Single, Y As Single

N = Val(TextBox1)
ReDim X(1 To N)
For i = 1 To N
X(i) = InputBox("ââåäè èñõîäíûå äàííûå - ìàññèâ c")
Next i
If i > 0 Then
i = i + X(i)
End If
TextBox2 = Str(X(i))
If X(i) < 0 Then
i = i * X(i)
End If
TextBox3 = Str(X(i))
End Sub

[AlexP]

Так и что не так? Выдает какую-то ошибку или что?

[Castiel (Макс)]

Выдает ошибку в строке “i=I+x(i)” , Комментарий к ошибке Run-time errror ‘9’
Subscript out of range

[AleksandrH]

потому что условие неверно. Надо не i сравнивать с 0, а a(i) и в переменную Y накапливать. К тому же в цикле

[Castiel (Макс)]

Можешь сделать это в коде , а то я так не понимаю(

[AleksandrH]

могу, а ты взамен что?

@Castiel

Private Sub CommandButton1_Click()
Dim N As Integer, i As Integer
Dim X() As Single, Y As Single
Dim s as integer, d as integer

N = Val(TextBox1)
ReDim X(1 To N)
s=0
d=1
For i = 1 To N
X(i) = InputBox("ââåäè èñõîäíûå äàííûå - ìàññèâ c")

If x(i) > 0 Then
s = s + X(i)
End If
If X(i) < 0 Then
d = d * X(i)
End If
Next i
TextBox2 = Str(s)
TextBox3 = Str(d)
End Sub