найти количество положительных (отрицательных) чисел - Pascal

Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.75/8:

@roast sun 0 / 0 / 0 Регистрация: 15.05.2010 Сообщений: 25

	найти количество положительных (отрицательных) чисел 15.05.2010, 17:43. Показов 1650. Ответов 1 Метки нет (Все метки) найти количество положительных (отрицательных) чисел среди целых чисел А,В,С,Д. 0

Лучшие ответы (1)

Сообщение: #728472

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

15.05.2010, 17:43

Ответы с готовыми решениями:

Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максималь
Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то...

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

С клавиатуры вводится последовательность дробных чисел(окончание ввода-0) найти сумму всех чисел,количество отрицательных и количество положительных.
В общем,ребята. Помогите написать код,буду очень признателен. С клавиатуры вводится последовательность дробных чисел(окончание ввода-0)...

Puporev

Почетный модератор

64315 / 47611 / 32743

Регистрация: 18.05.2008

Сообщений: 115,167

15.05.2010, 18:03

Сообщение было отмечено roast sun как решение

Решение

Pascal
1
kol_pol:=ord(a>0)+ord(b>0)+ord(c)>0+ord(d)>0;

аналогично отрицательные.
Если знать что нет нолей то

Pascal
1
kol_otr:=4-kol_pol;

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

15.05.2010, 18:03

Помогаю со студенческими работами здесь

Найти количество положительных и отрицательных чисел среди чисел заданного вида
Найти количество положительных и отрицательных чисел среди чисел вида: sin x n при х=1,13; n=1…30

Найти количество положительных и отрицательных чисел среди заданных чисел
Найти количество положительных и отрицательных чисел среди чисел вида: sin x^n при х=1,13; n=1…30.

Найти количество положительных и отрицательных чисел последовательности
Здравствуйте. Нужно написать программу. Вводится последовательность чисел.Конец ввода- число 0. Найти количество положительных и...

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

Найти количество положительных, отрицательных и нулевых чисел в массиве
Решите пожалуйста вот это.. Создать Массив С на 30 целых чисел из диапазона (-25...25). Найти количество положительных чисел в массиве...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа 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 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

Наверх