В линейном массиве найти сумму элементов, находящихся между максимальным и минимальным элементами - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д