Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.91/11: Рейтинг темы: голосов - 11, средняя оценка - 4.91
0 / 0 / 0
Регистрация: 15.12.2016
Сообщений: 20

Подсчитать количество положительных и отрицательных элементов массива

29.03.2017, 11:48. Показов 2055. Ответов 1

Студворк — интернет-сервис помощи студентам
Ввести массив а(10). Подсчитать колличество положительных и отрицательных элементов массива
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
29.03.2017, 11:48
Ответы с готовыми решениями:

Подсчитать количество положительных и отрицательных элементов массива
Написать программу которая создает массив из N чисел и с помощью функции подсчитывает кол-во положительных и отрицательных элементов....

В массиве найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов
В массиве Х(N) найти среднее арифметическое положительных элементов массива, а также произведение и количество отрицательных элементов....

Найти количество отрицательных и произведение положительных элементов массива
Создать массив с элементами a_{k,n}=nf(k)+sin(k)g(n), f(k)=\left|\sin \frac{k}{3.12}+\cos k^2 \right| -8.3\sin 3k ...

1
 Аватар для Hitoku
1755 / 1347 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
29.03.2017, 11:54
Лучший ответ Сообщение было отмечено Khizhnjak как решение

Решение

Pascal
1
2
3
4
begin
  var a:=ArrRandom(10,-20,20).Println.ToArray;
  write('Положительных - ',a.Where(v -> v>0).Count,NewLine,'Отрицательных - ',a.Where(v -> v<0).Count);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.03.2017, 11:54
Помогаю со студенческими работами здесь

Найдите отдельное количество отрицательных и положительных элементов массива.
Указание: для каждой задачи создайте алгоритм и программу. Заполните одномерный числовой массив D(15) случайными целыми числами в интервале...

Найти количество отрицательных и количество положительных элементов матрицы
Ребят помогите пожалуйста! В паскале херово шарю! А нужно лабу в институте сдать(

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

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

Определить количество положительных и отрицательных элементов непустого списка
Имеется список, элементами которого являются целые числа. Определить количество положительных и отрицательных элементов непустого списка....


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Программный контроль заполнения реквизита табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .
wmic не является внутренней или внешней командой
Maks 02.04.2026
Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru