Найти в массиве суму отрицательных чисел - VB
Формулировка задачи:
ребята, помогите!
1) нужно найти в массиве с N действительных чисел сумму отрицательных чисел
2) найти в массиве с N действительных чисел произведение чисел между минимальным и максимальным элементом.
Решение задачи: «Найти в массиве суму отрицательных чисел»
textual
Листинг программы
Option Explicit Dim D() As Single Private Sub Command1_Click() Dim i As Integer, n As Integer, sum As Single, proizved As Single, temp Dim minD As Single, maxD As Single, indMin As Integer, indMax As Integer n = InputBox("N =", "", 10): ReDim D(1 To n) Randomize Print "Массив " For i = 1 To n D(i) = InputBox("D(" & i & ") = ", "", Int(Rnd * 20 - 10)) If D(i) < 0 Then sum = sum + D(i) Print D(i); Next i minD = D(1): maxD = D(1): indMin = 1: indMax = 1: proizved = 1 Print Print "Сумма отрицательных элементов массива равна " & sum For i = 1 To n If D(i) < minD Then minD = D(i): indMin = i If D(i) > maxD Then maxD = D(i): indMax = i Next i Print "Минимальный элемент массива - D(" & indMin & ") = "; minD Print "Максимальный элемент массива - D(" & indMax & ") = "; maxD If indMin > indMax Then temp = indMin: indMin = indMax: indMax = temp If indMax - indMin < 2 Then MsgBox ("элементов находящихся м-у мин. и макс. эл. нет"): Exit Sub For i = indMin + 1 To indMax - 1 proizved = proizved * D(i) Next i Print "Произведение эл. массива находящихся м-у мин. и макс. эл. массива равно " & proizved End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д