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

@Zastiesto · Регистрация: 10.10.2010

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

В последовательности целых чисел определить количество положительных чисел и количество элементов,значения которых находятся в интервале от 10 до -20.(задачу реализовать без помощи массива).

@кот Бегемот · 07.11.2010, 19:37

Так чем ответ Puporev не устроил? А я просто не обратил внимания, что надо While, но это не проблема, вместо for пишем

Pascal
1
while i<n do

и добавляем

Pascal
1
inc(i);

это означает увеличить i на 1

@Zastiesto · 07.11.2010, 19:41 **[ТС]**

Мне ошибку выдают Fatal:Compilation aborted. И по ходу он составил прогу для отрезка,а там интервал.И ещё,наверно,она не твечает на вопрос(кол-во элементов ,знач.которых находятся в интервале)

@кот Бегемот · 07.11.2010, 19:44

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
a,i,n,pol,kol:integer;
begin
writeln('vvedite kolichestvo chisel');
readln(n);
while i<n do
begin
inc(i);
writeln('vvedite chislo');
readln(a);
if a>0 then inc(pol);
if (a>-10)and(a<20)then inc(kol);
end;
writeln('polojitelnyh=',pol);
writeln('v intervale=',kol);
readln;
end.

kol - количество чисел в интервале
pol- количество положительных

@Zastiesto · 07.11.2010, 19:45 **[ТС]**

А что такое kol и pol

@кот Бегемот · 07.11.2010, 19:47

смотри выше

@Zastiesto · 07.11.2010, 19:55 **[ТС]**

А когда прога попросит ввести кол-во чисел,что можно любое число написать?

Добавлено через 4 минуты
А когда прога попросит ввести кол-во чисел,что можно вводить любое число ?

@кот Бегемот · 07.11.2010, 19:58

Ну конечно, а как иначе узнать, когда ввод заканчивать? Или задавать его, например, ввести 0, тогда readln(n) не будет, а будет

Pascal
1
while a<>0 do

@Zastiesto · 07.11.2010, 20:00 **[ТС]**

А вы не могли бы её в прогу впихнуть,пожалуйста,а то голова уже не варит.....

@кот Бегемот · 07.11.2010, 20:05

Zastiesto, вы когда пишете условие задачи, то определяйтесь сразу, как заканчивается последовательность: определённым количеством чисел, тогда readln(n) или заканчивается как-то по-другому, я не экстрасенс, ваших мыслей читать не умею. Один вариант я вам написал, он прекрасно работает, другой написал как сделать, добавите сами вместо readln(n). Впредь читайте п.9 здесь:
Как запостить тему, чтобы не получить ответ

@Zastiesto · 07.11.2010, 20:08 **[ТС]**

Спасибо за терпение и труд!!!!!!!!!!!!!

Новые блоги и статьи Все статьи Все блоги /
Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66

	Определить количество положительных чисел в массиве 25.10.2010, 21:53. Показов 5359. Ответов 29 Метки нет (Все метки) В последовательности целых чисел определить количество положительных чисел и количество элементов,значения которых находятся в интервале от 10 до -20.(задачу реализовать без помощи массива). 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	07.11.2010, 19:41 [ТС]
	Мне ошибку выдают Fatal:Compilation aborted. И по ходу он составил прогу для отрезка,а там интервал.И ещё,наверно,она не твечает на вопрос(кол-во элементов ,знач.которых находятся в интервале) 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	07.11.2010, 19:45 [ТС]
	А что такое kol и pol 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	07.11.2010, 19:47
	смотри выше 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	07.11.2010, 19:55 [ТС]
	А когда прога попросит ввести кол-во чисел,что можно любое число написать? Добавлено через 4 минуты А когда прога попросит ввести кол-во чисел,что можно вводить любое число ? 0

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	07.11.2010, 20:00 [ТС]
	А вы не могли бы её в прогу впихнуть,пожалуйста,а то голова уже не варит..... 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	07.11.2010, 20:05
	Zastiesto, вы когда пишете условие задачи, то определяйтесь сразу, как заканчивается последовательность: определённым количеством чисел, тогда readln(n) или заканчивается как-то по-другому, я не экстрасенс, ваших мыслей читать не умею. Один вариант я вам написал, он прекрасно работает, другой написал как сделать, добавите сами вместо readln(n). Впредь читайте п.9 здесь: Как запостить тему, чтобы не получить ответ 1

@Zastiesto 0 / 0 / 3 Регистрация: 10.10.2010 Сообщений: 66
	07.11.2010, 20:08 [ТС]
	Спасибо за терпение и труд!!!!!!!!!!!!! 0