Одномерный массив в VBA

19.05.2008, 20:48. **Показов** 4041. **Ответов** 6

Студворк — интернет-сервис помощи студентам

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

@Alirp · 20.05.2008, 08:42

все просто: заводиш два счетчика, заводиш цикл до 75, в цикле проверяеш элемент массива на условие <0, если да, то увеличиваеш счетчик отрицательных чисел, если нет, то положительных.

20.05.2008, 09:19

А как счетчик завести?

@Alirp · 20.05.2008, 09:39

завести две переменные:
Dim plus As Integer
Dim minus As Integer
В начале программы обнулить их, а затем как уже было описано ранее увеличивать значение соответствующей переменной на единицу, в конце цыкла переменные будут содержать количество положительных (plus) и отрицательных (minus) значений матрицы.

14.12.2008, 03:57

Люди помогите!!!

Одномерный массив
Дан массив B(m), m=16. Все отрицательные элементы заменить нулями. Ввывести на печать исходный массив, переформированный массив D, а также сумму его элементов S.
Вычислить и вывести на печать сумму S1 элементов с четными номерами, удоволетворяющих условию /B1/<2 зеленым цветом.

16.12.2008, 00:02

люди помогите пожалуйста кто шарит в это))) буду благодарен всему и всем))):1). Одномерный массив.
Пользователь вводит одномерный массив целых чисел. Вычеслить количество идущих подряд отрицательных элементов массива, начиная с первого отрицательного элемента массива.
2). Двумерный массив.
Нати максимальный из элементов, расположенных выше n строки, а также сумму элементов четных чисел. заранее спасибоу=))

16.12.2008, 00:18

люди помогите пожалуйста кто шарит в это))) буду благодарен всему и всем))):1). Одномерный массив.
Пользователь вводит одномерный массив целых чисел. Вычеслить количество идущих подряд отрицательных элементов массива, начиная с первого отрицательного элемента массива.
2). Двумерный массив.
Нати максимальный из элементов, расположенных выше n строки, а также сумму элементов четных чисел. заранее спасибоу=))

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .

ExMatiss

	Одномерный массив в VBA 19.05.2008, 20:48. Показов 4041. Ответов 6 Метки нет (Все метки) Помогите, пожалуйста, решить задачу. Дан одномерный массив (1 до 75). Подсчитать количество положительных и количество отрицательных элементов массива.

@Alirp 57 / 53 / 4 Регистрация: 04.05.2008 Сообщений: 272
	20.05.2008, 08:42
	все просто: заводиш два счетчика, заводиш цикл до 75, в цикле проверяеш элемент массива на условие <0, если да, то увеличиваеш счетчик отрицательных чисел, если нет, то положительных. 0

ExMatiss
	20.05.2008, 09:19
	А как счетчик завести?

@Alirp 57 / 53 / 4 Регистрация: 04.05.2008 Сообщений: 272
	20.05.2008, 09:39
	завести две переменные: Dim plus As Integer Dim minus As Integer В начале программы обнулить их, а затем как уже было описано ранее увеличивать значение соответствующей переменной на единицу, в конце цыкла переменные будут содержать количество положительных (plus) и отрицательных (minus) значений матрицы. 0

xayrus
	14.12.2008, 03:57
	Люди помогите!!! Одномерный массив Дан массив B(m), m=16. Все отрицательные элементы заменить нулями. Ввывести на печать исходный массив, переформированный массив D, а также сумму его элементов S. Вычислить и вывести на печать сумму S1 элементов с четными номерами, удоволетворяющих условию /B1/<2 зеленым цветом.

Гость13-08
	16.12.2008, 00:02
	люди помогите пожалуйста кто шарит в это))) буду благодарен всему и всем))):1). Одномерный массив. Пользователь вводит одномерный массив целых чисел. Вычеслить количество идущих подряд отрицательных элементов массива, начиная с первого отрицательного элемента массива. 2). Двумерный массив. Нати максимальный из элементов, расположенных выше n строки, а также сумму элементов четных чисел. заранее спасибоу=))

Гость13-08
	16.12.2008, 00:18
	люди помогите пожалуйста кто шарит в это))) буду благодарен всему и всем))):1). Одномерный массив. Пользователь вводит одномерный массив целых чисел. Вычеслить количество идущих подряд отрицательных элементов массива, начиная с первого отрицательного элемента массива. 2). Двумерный массив. Нати максимальный из элементов, расположенных выше n строки, а также сумму элементов четных чисел. заранее спасибоу=))