|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.12.2014, 21:12 | #1 |
Новичок
Джуниор
Регистрация: 08.12.2014
Сообщений: 2
|
Не получается задача. Вот она.
5. Ввести массив A(35) . Найти среднее арифметическое значение массива. Все элементы массива увеличить на среднее арифметическое. Вывести преобразованный массив.
дело в том,что сама программа запускается,но некоторые числа в массиве увеличивает,а некоторые оставляет неизменными. помогите пожалуйста:conf used: Sub srednee_arifmeticheskoe() Dim a(35) As Integer Dim srznach As Integer Dim s As Integer [a1] = "Исходный массив" [a3] = "Значение среднего арифметического элементов массива" [a5] = "Преобразованный массив" Randomize For i = 1 To 35 a(i) = 20 - Int(Rnd * 100) Cells(2, i) = a(i) s = 0: srznach = 0 s = s + a(i) srznach = s / 35 [a4] = srznach a(i) = a(i) + srznach Cells(6, i) = a(i) Next i End Sub |
08.12.2014, 22:03 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
нужно два цикла:
в первом заполнили массив данными и посчитали сумму элементов нашли среднее во втором цикле увеличили элементы массива на величину среднего удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
в paskale эта программка у меня получается, а вот в с++ ни как... | Julia1 | Помощь студентам | 3 | 03.06.2014 10:59 |
Вроде все просто, но вот не получается | dnetmorosality | Microsoft Office Excel | 7 | 05.12.2012 14:21 |
Вот такая вот задача, C++ | aztec | Помощь студентам | 2 | 10.06.2009 17:27 |