Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 30.10.2014
Сообщений: 37
1

Найти количество элементов массива, значение которых превышает среднее по массиву

24.11.2014, 16:47. Показов 1080. Ответов 2
Метки нет (Все метки)

Создал динамический массив. Не могу понять, где ошибка. Выводит только размерность, либо 0.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton2_Click()
n = TextBox1
q = CInt(n)
sum1 = 0
count = 0
ReDim Preserve od(q)
ListBox1.Clear
For i = 1 To n
od(q) = Int(Rnd * 20) - 10
sum1 = sum1 + od(q)
ListBox1.AddItem (od(q))
Next i
sr = sum1 / n
For i = 1 To n
If (od(q) > sr) Then
count = count + 1
End If
Next i
Selection(1, 1) = "Среднее"
Selection(1, 2) = sr
Selection(2, 1) = "Кол-во эл-ов"
Selection(2, 2) = count
End Sub
Добавлено через 1 минуту
Буду благодарен за помощь
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2014, 16:47
Ответы с готовыми решениями:

Подсчитать количество элементов массива, значение которых не превышает среднее арифметическое всего массива
Создать одномерный вещественный массив. Подсчитать количество его элементов, значение которых не...

Найти количество элементов значение которых превышает среднее арифметическое всех элементов
дан целочисленный массив из n элементов. Найти количество элементов значение которых превышает...

Найти количество элементов массива, абсолютное значение которых не превышает 2
Буду рад любой помощи в задачке: найти количество элементов массива {xk}, абсолютное значение...

Определить среднее значение всех элементов, значение которых превышает среднее для массива
в произвольно заданном одномерном массиве определить среднее значение всех элементов, значение...

2
6070 / 1314 / 195
Регистрация: 12.12.2012
Сообщений: 1,023
24.11.2014, 18:26 2
Лучший ответ Сообщение было отмечено tezaurismosis как решение

Решение

Здравствуйте, Макс122,
Предлагаю заменить все od(q), начиная с девятой строчки, на od(i). Ведь вы должны обрабатывать весь массив с 1 до n-ого элемента, а вместо этого работаете только с элементом od(q), перезаписывая его значение...

С уважением,
Аксима
1
0 / 0 / 0
Регистрация: 30.10.2014
Сообщений: 37
25.11.2014, 14:18  [ТС] 3
Спасибо большое
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.11.2014, 14:18

Найти сумму всех элементов массива, и количество элементов, значение которых превышает 6
ввести с клавитуры из N элементов.Найдите сумму всех элементов и количество элементов значение...

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

Найти количество чисел, значение которых превышает среднее арифметическое
Найти количество чисел, значение которых превышает среднее арифметическое. Дописать это число в...

В одномерном массиве определить среднее значение всех элементов,значение которых превышает среднее значение
в произвольно заданном одномерном массиве определить среднее значение всех элементов,значение...

Определить количество элементов массива, значение которых превышает заданное
Определить количество элементов массива, значение которых превышает заданное. Составить новый...

Найти сумму элементов массива, значение которых не превышает 20
Расчет суммы или количества элементов массива, удовлетворяющих некоторому условию 1. Дан массив....


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

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

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