Заменить минимальный по модулю отрицательный элемент массива первым элементом - VB

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

1.Заменить минимальный по модулю отрицательный элемент массива первым элементом. 2. Заменить последние k элементов массива на противоположные по знаку. 3. Из элементов массива C сформировать массив A той же размерности по правилу: если номер i элемента четный, то Ai=(i-1)*Ci, если нечетный, то Ai=2*i*Ci. Ни как не получается уже запарился( подскажите , пытался 1 вот

Dim a(30) As Single
Private Sub Command1_Click()
Dim min As Integer
n = Val(Text1.Text)
v = Split(Text2.Text, " ")
min = a(1)
For i = 1 To n
a(i) = Val(v(i - 1))
If (a(i)) < min Then min = a(i)
Next i
Picture1.Print min
End Sub

Решение задачи: «Заменить минимальный по модулю отрицательный элемент массива первым элементом»

textual
                            Листинг программы 
                        
                            For i = UBound(a) - k + 1 To UBound(a)

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

12 голосов , оценка 4.583 из 5

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