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

@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 **[ТС]**

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

Новые блоги и статьи Все статьи Все блоги /
Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .	Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .

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

	Определить количество положительных чисел в массиве 25.10.2010, 21:53. Показов 5285. Ответов 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