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

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

19.01.2012, 18:36. Просмотров 1195. Ответов 1
Метки нет (Все метки)

VBA, не как не могу написать(
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2012, 18:36
Ответы с готовыми решениями:

Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов
Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных,...

Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов
Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных,...

Вставить на место нулевых элементов массива произведение отрицательных элементов массива
вставить на место нулевых элементов массива произведение отрицательных...

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

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

1
19vitek
727 / 403 / 95
Регистрация: 19.12.2010
Сообщений: 756
19.01.2012, 19:30 2
как вариант.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub sum_n()
Cells.Clear
Randomize
Dim col As Range
kol = InputBox("Введите к-во эл-тов", , 10)
Set Rng = Range(Cells(1, 1), Cells(kol, 1))
Rng.Formula = "=int(rand()*7-5)"
Rng.Value = Rng.Value
pr = 1
For Each col In Rng
    If col = 0 Then k_o = k_o + 1
    If col < 0 Then pr = pr * col
Next col
MsgBox "Кол-во нулевых эл-тов=" & k_o & Chr(13) & "Произведение отрицательных=" & pr
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2012, 19:30

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

Определить среднее арифметическое значение отрицательных элементов и количество нулевых элементов
А(20), В(35) определить среднее арифметическое значение отрицательных элементов...

Определить количество нулевых и произведение модулей отрицательных среди данных чисел
Парни умоляю помогите. Заболел и температура под 40. Плюс ко всем далековат от...


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

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

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