Удалить все четные элементы, имеющие значение больше среднего арифметического всех элементов массива

@x_AlexXxander_x · Регистрация: 04.11.2010

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

Удалить все четные элементы, имеющие значение больше среднего арифметического всех элементов массива
Пример: из массива А[5]: 8 7 2 6 5 должен получиться массив А[3] 7 2 5 (среднее арифметическое значение всех элементов = (8+7+2+6+5)/5=5.6)

Вот наработки, Expected: expression в строке "If (Arr(i) / 2 mod = 0) and (Arr(i) > sr_ar)" выдает

Visual Basic

Sub Удалить()
Dim i, sr_ar As Byte
ReDim Arr(1 To 6) As Integer
    For i = 1 To UBound(Arr)
        Cells(5, i).Select
        Arr(i) = ActiveCell
    Next i
sr_ar = 0
    For i = 1 To UBound(Arr)
        sr_ar = sr_ar + Arr(i)
    Next i
sr_ar = sr_ar / 6
    For i = 1 To UBound(Arr)
        If (Arr(i) / 2 mod = 0) and (Arr(i) > sr_ar) Then
        Else
        Cells(8, i) = Arr(i)
    Next i
End Sub

@~~Busine2009~~ · 26.12.2010, 20:41

x_AlexXxander_x,
14 строку замени на эту:

Visual Basic

1	If Arr(i) Mod 2 = 0 And Arr(i) > sr_ar Then

@x_AlexXxander_x · 26.12.2010, 21:06 **[ТС]**

ага, понятно, но что-то все равно не хочет выводить преобразованный массив... Что мне еще исправить/добавить?

@~~Busine2009~~ · 26.12.2010, 21:08

x_AlexXxander_x,
15 строку удали.

@x_AlexXxander_x · 26.12.2010, 21:12 **[ТС]**

Сообщение от Busine2009

x_AlexXxander_x,
15 строку удали.

Что с удалением 15-й что без "Compile error: Next without For"

@~~Busine2009~~ · 26.12.2010, 21:14

x_AlexXxander_x,
после 16 строки вставь:

Visual Basic

end if

и 15 строку удали.

@x_AlexXxander_x · 26.12.2010, 21:23 **[ТС]**

Busine2009,
спасибо огромное)

@x_AlexXxander_x 7 / 7 / 5 Регистрация: 04.11.2010 Сообщений: 25
	26.12.2010, 21:06 [ТС]	3
	ага, понятно, но что-то все равно не хочет выводить преобразованный массив... Что мне еще исправить/добавить? 0

@~~Busine2009~~ Заблокирован
	26.12.2010, 21:08	4
	x_AlexXxander_x, 15 строку удали. 0

@x_AlexXxander_x 7 / 7 / 5 Регистрация: 04.11.2010 Сообщений: 25
	26.12.2010, 21:12 [ТС]	5
	Сообщение от Busine2009 x_AlexXxander_x, 15 строку удали. Что с удалением 15-й что без "Compile error: Next without For" 0

@x_AlexXxander_x 7 / 7 / 5 Регистрация: 04.11.2010 Сообщений: 25
	26.12.2010, 21:23 [ТС]	7
	Busine2009, спасибо огромное) 1

Опции темы