Как найти сумму значений наибольшего и наименьшего элементов массива - VB
Формулировка задачи:
Как найти сумму значений наибольшего и наименьшего элементов массива K(19+n) (Visual Basic 6.0) ?ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Решение задачи: «Как найти сумму значений наибольшего и наименьшего элементов массива»
textual
Листинг программы
- Option Explicit
- Rem Программа определяет в массиве максимальный и минимальный элементы и суммирует их
- Rem Надо задать переменную n и массив
- Rem для определенности предполагается, что они имеют тип Integer
- Dim n As Integer
- Dim Summa as Long ' искомая сумма
- Dim K(19+Nmax) As Integer ' 19+Nmax - максимальный индекс массива (должен быть задан)
- Dim min As Integer ' минимальный элемент массива
- Dim max As Integer ' максимальный элемент мас.
- Rem для определенности положим, что n=0
- Rem также предполагается, что массив каким-либо образом инициализируется
- min=K(19)
- max=K(19) ' инициализация переменных min, max
- For n=0 to Nmax-1
- If min>K(20+n) Then
- min=K(20+n)
- If max<K(20+n) Then max=K(20+n)
- End If
- Next n
- Summa=min+max
- Print "Summa=";Summa
- Rem Точнее не напишешь. Массив неопределен
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д