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

@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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
1
end if

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .

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

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	26.12.2010, 21:08
	x_AlexXxander_x, 15 строку удали. 0

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