Вычислить количество положительных, отрицательных и нулевых чисел

@SannyTwo · Регистрация: 23.03.2015

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

26 целых чисел из диапазона [-100; 100] вводятся с помощью генератора случайных чисел. Вычис-лить количество положительных, отрицательных и нулевых чисел.
Помогите решить, пж. Visual Basic 2010
Написать код надо в " Приложение Windows Form "

Памирыч · 24.03.2015, 18:21

SannyTwo, на каком этапе реализации возникли затруднения?

@Nachrichter · 24.03.2015, 18:37

Не по теме:

Сообщение от SannyTwo

пж

Возникла ассоциация с "Кин-дза-дза". Пойду смотреть... :)

Памирыч · 24.03.2015, 18:45

Накропал с нуля, даже с выводом массива в MsgBox (вдруг понадобится)

VB.NET
1
2
3
4
5
        Dim r As New Random()
        Dim Mass As Integer() = Enumerable.Range(-100, 200).OrderBy(Function(n) r.Next).Take(26).ToArray()
        Dim P = (From I In Mass Where I > 0).ToArray
        Dim M = (From I In Mass Where I < 0).ToArray
        MsgBox("Положительных: " & P.Length & vbCrLf & "Отрицательных: " & M.Length & vbCrLf & "Нулевых: " & Mass.Length - P.Length - M.Length & vbCrLf & String.Join(vbCrLf, Mass.[Select](Function(x) x.ToString()).ToArray()))

@Замабувараев · 25.03.2015, 22:19

Памирыч, Я тут нашёл ещё такой вариант с подсчётом количества элементов:

VB.NET
1
Mass.Count(Function(x) x > 0)

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

Вычислить количество положительных, отрицательных и нулевых чисел

Решение

Решение

@SannyTwo 0 / 0 / 0 Регистрация: 23.03.2015 Сообщений: 21

	Вычислить количество положительных, отрицательных и нулевых чисел 24.03.2015, 18:07. Показов 2417. Ответов 4 Метки нет (Все метки) 26 целых чисел из диапазона [-100; 100] вводятся с помощью генератора случайных чисел. Вычис-лить количество положительных, отрицательных и нулевых чисел. Помогите решить, пж. Visual Basic 2010 Написать код надо в " Приложение Windows Form " 0

Памирыч Почетный модератор 23248 / 9160 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	24.03.2015, 18:21
	SannyTwo, на каком этапе реализации возникли затруднения? 2