Поиск наибольшего и наименьшего числа

25.09.2008, 13:44. **Показов** 4207. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Всем привет!
Нужно найти максимально и минимальное числа из
ниже приведенных переменных
dim e1, e2, e3, e4, e5 as double
из них нужно найти максимальное и минимальное,
после чего провести такую вещь - сложить все числа от e1 до e5 после чего вычесть из них сумму минимального и максимального числа
как я понял для поиска наибольшего и наименьшего числа их нужно вогнать в массив?

Vovan-VE · 25.09.2008, 18:13

Visual Basic

Dim arr#(1 To 5), i&, max&, min&, sum&
arr(1) = e1
arr(2) = e2
arr(3) = e3
arr(4) = e4
arr(5) = e5
 
min = arr(1)
max = arr(1)
sum = arr(1)
For i = 2 To 5
    sum = sum + arr(i)
    If arr(i)>max Then max = arr(i)
    If arr(i)<min Then min = arr(i)
Next
 
MsgBox("Min = " & min & vbCrLf & _
       "Max = " & max & vbCrLf & _
       "sum = " & sum & vbCrLf & _
       "sum-min = " & (sum - min) & vbCrLf & _
       "sum-max = " & (sum - max))

Кв@с
		1
	Поиск наибольшего и наименьшего числа 25.09.2008, 13:44. Показов 4207. Ответов 1 Метки нет (Все метки) Всем привет! Нужно найти максимально и минимальное числа из ниже приведенных переменных dim e1, e2, e3, e4, e5 as double из них нужно найти максимальное и минимальное, после чего провести такую вещь - сложить все числа от e1 до e5 после чего вычесть из них сумму минимального и максимального числа как я понял для поиска наибольшего и наименьшего числа их нужно вогнать в массив?

	25.09.2008, 18:13