Определить стоимость бензина, затраченного на поездку в другой город - VB
Формулировка задачи:
1)Стоимость бензина , затраченного на поездку в другой город.
2)Дано натуральное число n. Поменять порядок цифр числа n на обратный.
3)Дано действительное число x. Определить, является ли оно натуральным.
4)Даны натуральное число n и последовательность действительных чисел а1,a2,...,a2n
Вычислить среднее арифметическое элементов последовательности, если из неё удалит максимальный и минимальный члены.
теперь надо только 3 и 4
помогите плиз
Решение задачи: «Определить стоимость бензина, затраченного на поездку в другой город»
textual
Листинг программы
Option Explicit
Dim i As Integer, k As Integer
Dim N As Integer
Dim mass(), mass_1()
Dim max As Integer, min As Integer, S
Private Sub Command1_Click()
N = Val(InputBox("Вводим N", , 3))
If N < 3 Then
MsgBox "некорректный ввод " & vbNewLine & "повторите ввод"
Exit Sub
End If
ReDim mass(N)
List1.Clear
For i = 1 To N
mass(i) = Val(InputBox("Введите a(" & i & ")"))
List1.AddItem mass(i)
Next i
max = mass(1)
min = mass(1)
For i = 2 To N
If max < mass(i) Then max = mass(i)
If min > mass(i) Then min = mass(i)
Next i
k = 0
For i = 1 To N
If max <> mass(i) And min <> mass(i) Then
k = k + 1
ReDim Preserve mass_1(k)
mass_1(k) = mass(i)
End If
Next i
List2.Clear
If k > 0 Then
S = 0: k = UBound(mass_1)
For i = 1 To k
S = S + mass_1(i)
List2.AddItem mass_1(i)
Next i
List2.AddItem ""
List2.AddItem "Среднее ар"
List2.AddItem "S = " & S / k
Else
MsgBox "элементов, отличных от макс. или мин., не найдено"
End If
End Sub