АК
Андрей Кириченко
помогите найти ошибку. бейсик
Сформировать массив B, уплотнив одномерный массив C(20), выбросив из него максимальный (max) и минимальный элементы (min). Элементы ис-ходного массива записать в ячейки рабочего листа “Лист1”,
Sub Ìàêðîñ1()
Sheets("Ëèñò1").Activate
Const n = 20
Dim C(1 To n) As Single
Dim B(1 To n) As Single
For i = 1 To n
C(i) = Cells(1, i)
Next i
max = -1E+20
min = 1E+20
kol = 0
For i = 1 To n
If C(i) < max And C(i) > min Then
kol = kol + 1
B(kol) = C(i)
End If
Next i
If kol = 0 Then
Cells(3, 1) = "óïë íåëüçÿ"
Else
For i = 1 To kol
Cells(5, i) = B(i)
Next i
End If
End Sub