Как найти сумму значений наибольшего и наименьшего элементов массива - VB

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

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

Как найти сумму значений наибольшего и наименьшего элементов массива K(19+n) (Visual Basic 6.0) ?ПОМОГИТЕ ПОЖАЛУЙСТА!!!

Решение задачи: «Как найти сумму значений наибольшего и наименьшего элементов массива»

textual
Листинг программы
  1. Option Explicit
  2. Rem Программа определяет в массиве максимальный и минимальный элементы и суммирует их
  3. Rem Надо задать переменную n и массив
  4. Rem для определенности предполагается, что они имеют тип Integer
  5. Dim n As Integer
  6. Dim Summa as Long ' искомая сумма
  7. Dim K(19+Nmax) As Integer ' 19+Nmax - максимальный индекс массива (должен быть задан)
  8. Dim min As Integer ' минимальный элемент массива
  9. Dim max As Integer ' максимальный элемент мас.
  10. Rem для определенности положим, что n=0
  11. Rem также предполагается, что массив каким-либо образом инициализируется
  12.  
  13. min=K(19)
  14. max=K(19) ' инициализация переменных min, max
  15. For n=0 to Nmax-1
  16.     If min>K(20+n) Then
  17.         min=K(20+n)
  18.         If max<K(20+n) Then max=K(20+n)
  19.     End If
  20. Next n
  21. Summa=min+max
  22. Print "Summa=";Summa
  23. Rem Точнее не напишешь. Массив неопределен

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


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

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

14   голосов , оценка 3.786 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы