Найти пятый элемент последовательности

@Илина · Регистрация: 28.01.2013

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

Доброго.Надо вывести значение каждого пятого нечетного элемента последовательности, начиная с первого нечетного.
Как именно заставить программу определять каждый пятый !отрицательный! элемент?

Pascal
1
2
3
4
5
6
7
8
9
10
11
var
    x: Integer;
begin
    read(x);
    while x <> 0 do begin
        if x < 0 then
            write(x, ' ');
        read(x);    
    end;
    readLn;
end.

Вот сюда надо вставить определение.
Спасибо.

@ntrx · 29.01.2013, 20:48

отрицательный элемент значит x<0

@Илина · 29.01.2013, 20:50 **[ТС]**

Я поняла.Но как определить именно пятый,а не какой-нибудь другой элемент?

@ntrx · 29.01.2013, 22:13

каждый пятий, т.е. i mod 5 = 0 -> то что нам нада

@Ce7eH_111 · 29.01.2013, 22:21

Тебе отрицательные или нечетные?

@Илина · 29.01.2013, 22:24 **[ТС]**

Вроде выделила,что именно отрицательные.ntrx,не подскажите в какое место место сие вставлять?

@Ce7eH_111 · 29.01.2013, 22:28

А нечетное здесь причем???

@Илина · 29.01.2013, 22:37 **[ТС]**

лал.Ошибка сайта.
Пересмотрела,оно выдало мне уже иное условие.
Спасибо за замечание,нечетный элемент.Но вопрос тот же,как обнаружить 5-ый элемент?

@ntrx · 29.01.2013, 22:50

for i:=1 to N do
if i mod 5 = 0 then
we found 5th element of array

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git	1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@ntrx 124 / 123 / 83 Регистрация: 03.01.2013 Сообщений: 242
	29.01.2013, 20:48
	отрицательный элемент значит x<0 0

@Илина 1 / 1 / 0 Регистрация: 28.01.2013 Сообщений: 29
	29.01.2013, 20:50 [ТС]
	Я поняла.Но как определить именно пятый,а не какой-нибудь другой элемент? 0

@ntrx 124 / 123 / 83 Регистрация: 03.01.2013 Сообщений: 242
	29.01.2013, 22:13
	каждый пятий, т.е. i mod 5 = 0 -> то что нам нада 0

@Ce7eH_111 34 / 34 / 19 Регистрация: 17.11.2012 Сообщений: 109 Записей в блоге: 2
	29.01.2013, 22:21
	Тебе отрицательные или нечетные? 0

@Илина 1 / 1 / 0 Регистрация: 28.01.2013 Сообщений: 29
	29.01.2013, 22:24 [ТС]
	Вроде выделила,что именно отрицательные.ntrx,не подскажите в какое место место сие вставлять? 0

@Ce7eH_111 34 / 34 / 19 Регистрация: 17.11.2012 Сообщений: 109 Записей в блоге: 2
	29.01.2013, 22:28
	А нечетное здесь причем??? 0

@Илина 1 / 1 / 0 Регистрация: 28.01.2013 Сообщений: 29
	29.01.2013, 22:37 [ТС]
	лал.Ошибка сайта. Пересмотрела,оно выдало мне уже иное условие. Спасибо за замечание,нечетный элемент.Но вопрос тот же,как обнаружить 5-ый элемент? 0

@ntrx 124 / 123 / 83 Регистрация: 03.01.2013 Сообщений: 242
	29.01.2013, 22:50
	for i:=1 to N do if i mod 5 = 0 then we found 5th element of array 0