0 / 0 / 0
Регистрация: 20.11.2017
Сообщений: 26

В динамическом массиве найти первый чётный элемент, написать его индекс и значение

29.11.2017, 18:03. Показов 1660. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В динамическом массиве, состоящий из n вещественных элементов, найти первый чётный элемент , написать его номер и значение.
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
29.11.2017, 18:03
Ответы с готовыми решениями:

В динамическом массиве А(N) найти максимальный элемент и определить его индекс
1. В динамическом массиве А(N) найти максимальный элемент и определить его индекс. Ввод количества элементов N организовать через...

Найти первый отрицательный элемент и его индекс в массиве
В массиве из 15 чисел найти первый отрицательный элемент и его индекс в массиве. (Пожалуйста помогите чайнику)

Найти первый отрицательный элемент массива и его индекс
В массиве из 15 чисел найти первый отрицательный элемент и его индекс в массиве.

3
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
29.11.2017, 19:47
Цитата Сообщение от Vladnel26 Посмотреть сообщение
состоящий из n вещественных элементов
Цитата Сообщение от Vladnel26 Посмотреть сообщение
чётный элемент
Чётность в теории чисел — характеристика целого числа, определяющая его способность делиться нацело на два.
0
Aimez-vous les baguettes?
193 / 26 / 27
Регистрация: 25.10.2017
Сообщений: 165
29.11.2017, 20:11
Упустим тот момент , что четность чисел справедлива только для целочисленных элементов.
Pascal
1
2
3
4
5
6
7
begin
Var Array_ : array of integer = (3, -23, 34, 0, -234);
for var index:= 0 to High(Array_) do if not Odd(Array_[index]) then begin
Writeln('Array[',index,'] = ',Array_[index]);
break;
end;
end.
Добавлено через 17 минут
Если желаешь ввод с клавиатуры чисел замени часть кода на этот:
Pascal
1
2
3
Var Array_ : array of integer;
SetLength(Array_, ReadlnInteger('N = '));
for var index:= 0 to Array_.Length - 1 do Array_[index] := ReadlnInteger('Array[' + index + '] = ');
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33421 / 21527 / 8240
Регистрация: 22.10.2011
Сообщений: 36,935
Записей в блоге: 12
29.11.2017, 20:16
Цикл-то зачем? PascalABC.NET содержит все необходимое, чтобы при решении такой простой задачи обойтись без циклов:
Pascal
1
2
3
4
5
6
begin
  var a := Arr(3, -23, 34, 0, -234);
  var ix := a.FindIndex(v -> not Odd(v));
  if ix = -1 then Writeln('В массиве нет четных элементов')
  else WritelnFormat('Первый четный элемент массива = {1}, его индекс = {0}', ix, a[ix])
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
29.11.2017, 20:16
Помогаю со студенческими работами здесь

В массиве из 15 чисел найти наибольший элемент и его индекс в массиве
1) В массиве из 15 чисел найти наибольший элемент и его индекс в массиве.

В массиве С(15) найти последний чётный элемент и поставить его на место первого элемента
В массиве С(15) найти последний чётный элемент и по¬ставить его на место первого элемента.

Найти в заданном массиве первый 0 и его индекс, если 0 нет, вывести сообщение
Заполните одномерный массив из 10 элементов случайными целыми числами из интервала и выведите его на экран. Найти в этом массиве первый 0...

Написать функцию выводящую максимальный элемент в массиве и его индекс через указатель
Здравствуйте ! Помогите пожалуйста решить задачу - требуется написать функцию, находящую максимум массива и его индекс. С первой частью...

В массиве найти максимальный элемент и его индекс
язык си ) В одномерном массиве из 20 ти элементов найти максимальный эл-т и его индекс. #include <....> выделено в...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru