Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
7 / 7 / 5
Регистрация: 04.11.2010
Сообщений: 25
1

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

26.12.2010, 18:56. Просмотров 1508. Ответов 6
Метки нет (Все метки)

Удалить все четные элементы, имеющие значение больше среднего арифметического всех элементов массива
Пример: из массива А[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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2010, 18:56
Ответы с готовыми решениями:

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

Из массива удалить элементы, стоящие после максимального и имеющие значение меньше среднего арифметического всех элементов массива
Из массива удалить элементы, стоящие после максимального и имеющие значение меньше среднего...

Из массива удалить элементы, имеющие значение меньше среднего арифметического четных элементов массива
Здравствуйте ! Помогите пожалуйста Функции и процедуры Из массива удалить элементы, имеющие...

Заменить четные по значению элементы на значение среднего арифметического всех элементов массива
Задание такое: Заменить четные по значению элементы на значение среднего арифметического всех...

6
Заблокирован
26.12.2010, 20:41 2
x_AlexXxander_x,
14 строку замени на эту:
Visual Basic
1
If Arr(i) Mod 2 = 0 And Arr(i) > sr_ar Then
1
7 / 7 / 5
Регистрация: 04.11.2010
Сообщений: 25
26.12.2010, 21:06  [ТС] 3
ага, понятно, но что-то все равно не хочет выводить преобразованный массив... Что мне еще исправить/добавить?
0
Заблокирован
26.12.2010, 21:08 4
x_AlexXxander_x,
15 строку удали.
0
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
Заблокирован
26.12.2010, 21:14 6
x_AlexXxander_x,
после 16 строки вставь:
Visual Basic
1
end if
и 15 строку удали.
2
7 / 7 / 5
Регистрация: 04.11.2010
Сообщений: 25
26.12.2010, 21:23  [ТС] 7
Busine2009,
спасибо огромное)
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2010, 21:23

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В массиве целых чисел из 20 элементов найти все элементы, значение которых больше среднего арифметического массива
В массиве целых чисел из 20 элементов найти все элементы, значение которых больше среднего...

Заменить все элементы, значение которых меньше среднего арифметического всех элементов массива на нулевые
Мое задание: Заменить все элементы, значение которых меньше среднего арифметического всех элементов...

Удалить из нее все элементы, значение которых больше среднего арифметического
Задание: Дана последовательность х1...х20. Удалить из нее все элементы, значение которых больше...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.