Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 25.03.2010
Сообщений: 7

Посчитать количество элементов массива, входящих (не входящих) в заданный диапазон

25.03.2010, 21:38. Показов 1091. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
подсчитать для данного массива количество элементов,входящих(не входящих) в диапазон {0,1} ({1,1}).
очень надо,заранее спасибо

Добавлено через 34 минуты
пожалуйста помогите(
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
25.03.2010, 21:38
Ответы с готовыми решениями:

Найти в массиве количество элементов, не входящих в заданный диапазон
Как найти в массиве количество элементов, не входящих в заданный диапазон?

Подсчитать в массиве количество чисел, входящих в заданный пользователем диапазон.
Подсчитать в массиве количество чисел, входящих в заданный пользователем диапазон.

Построить множество, состоящее из всех элементов арифметической прогрессии, входящих в заданный диапазон
Нужна помощь, очень! Арифметическая прогрессия задана натуральными числами a1 и d. Построить...

2
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
26.03.2010, 14:17
Лучший ответ Сообщение было отмечено asenka как решение

Решение

в диапазон {1,1} входит 0 чисел, можно не считать.

Добавлено через 3 минуты
Второй интервал переделал на 1-2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
const max=100;
var a:array[1..max] of real;
    n,i,k1,k2,k3,k4:byte;
begin
clrscr;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=4*random-1;
  write(a[i]:5:2);
 end;
writeln;
writeln;
k1:=0;k2:=0;
for i:=1 to n do
 begin
  if(a[i]>0)and(a[i]<1) then k1:=k1+1;
  if(a[i]>1)and(a[i]<2) then k2:=k2+1;
 end;
writeln('В диапазон (0,1) входит=',k1,' не входит=',n-k1);
writeln('В диапазон (1,2) входит=',k2,' не входит=',n-k2);
readln
end.
1
0 / 0 / 0
Регистрация: 25.03.2010
Сообщений: 7
26.03.2010, 21:34  [ТС]
спасибо вам большое очень выручили
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
26.03.2010, 21:34
Помогаю со студенческими работами здесь

Найти количество четных элементов последовательности, а нечетные, входящие в диапазон [1 .. 11], возвести в квадрат
Помогите с заданием. Задание нужно сделать не использую массивы. Через цикл. Заранее...

Будет ли корректно вычисление random если не указать в скобках диапазон и какой диапазон будет по умолчанию?
Ребят , что будет , если написать s:=random не указывая в скобках диапазона , будет ли корректно...

Получить количество всех простых чисел, входящих в диапазон
Помогите пожалуйста.Даны натуральные числа a; b (1 \leq a \leq b \leq 1000) . Получить...

Определить количество чисел, входящих в диапазон [-1;5]
Количество чисел вводимых с клавиатуры равно N. Определить количество входящих в диапазон


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru