Найти в массиве суму отрицательных чисел - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

7   голосов , оценка 4.143 из 5
Похожие ответы