В линейном массиве найти сумму элементов, находящихся между максимальным и минимальным элементами - VB

Узнай цену своей работы

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

Дан числовой массив a(n). Найти сумму его элементов, расположенных между максимальным и минимальным членами(включая оба эти числа). У меня вот даже массив не выводится((( исправьте пожалуйста код. ну или может по другому можно сделать...

Решение задачи: «В линейном массиве найти сумму элементов, находящихся между максимальным и минимальным элементами»

textual
Листинг программы
Option Explicit
Dim a() As Single, n As Integer, i As Integer
 
Private Sub Command1_Click()
    n = 10 'Val(Text2.Text)
    Picture1.Cls
    ReDim a(1 To n)
    Randomize
    For i = 1 To n
        a(i) = Int(Rnd * 10 + 1)
        Picture1.Print a(i) & vbTab;
    Next i
    Picture1.Print
End Sub
 
 
Private Sub Command2_Click()
Dim max As Single, min As Single
Dim nomin As Integer, nomax As Integer, sum As Double
 
    For i = 1 To n
        If a(i) > max Then max = a(i): nomax = i
    Next i
    Picture1.Print "Максимальный элемент массива А(" & nomax & ") = " & max
    
    min = max
    
    For i = 1 To n
         If a(i) < min Then min = a(i): nomin = i
    Next i
    Picture1.Print "Минимальный элемент массива А(" & nomin & ") = " & min
    
    Picture1.Print "Элементы, расположенные между минимальным и максимальным:"
    If nomin < nomax Then
        For i = nomin To nomax
                Picture1.Print a(i) & vbTab;
                sum = sum + a(i)
        Next i
    Else
        For i = nomax To nomin
                Picture1.Print a(i) & vbTab;
                sum = sum + a(i)
        Next i
    End If
    Picture1.Print
    Picture1.Print "Сумма элементов, расположенных между минимальным и максимальным:  " & sum
End Sub

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


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

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

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