Я может че то не понимаю, но есть решение по первой же ссылке в гугле Dim SizeArray, R As New Random Dim Arr(SizeArray.Next(15, 26)) As Integer Dim Min As Integer = 10 Dim MinIndex As Integer Dim Chk As Boolean = False Dim Summ As Integer = 0 For I As Integer = 0 To Arr.Length - 1 Arr(I) = R.Next(-10, 11) Label1.Text &= Arr(I) & " " If Math.Abs(Arr(I)) < Min Then Min = Math.Abs(Arr(I)) MinIndex = I End If If Arr(I) < 0 And Chk = False Then Chk = True If Chk = True Then Summ += Math.Abs(Arr(I)) Next Label2.Text = "Номер минимального по модулю элемента массива: " & MinIndex Label3.Text = "Сумма модулей элементов массива, расположенных после первого отрицательного элемента: " & Summ