Изменить знак всех чётных элементов массива, состоящих из L чисел - VB
Формулировка задачи:
Условие:
Изменить знак всех чётных элементов массива , состоящих из L чисел.
Заранее благодарю!!
Решение задачи: «Изменить знак всех чётных элементов массива, состоящих из L чисел»
textual
Листинг программы
Dim A() As Single, L As Integer, txt As String, txt1 As String
L = InputBox("L")
ReDim A(1 To L)
For i = 1 To L
A(i) = InputBox("A(" & i & ")")
txt = txt & A(i) & " "
If A(i) Mod 2 = 0 Then A(i) = A(i) * -1
txt1 = txt1 & A(i) & " "
Next i
MsgBox txt & Chr(13) & txt1