Вопрос по информатике:
В заданном линейном массиве определить есть ли хотя бы один элемент который является нечетным, кратным 7 числом, если "да", то напечатать его номер
Пожаловаться
- 09.04.2018 12:38
- Информатика
- remove_red_eye 4898
- thumb_up 25
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var aInd:=a.IndexesOf(t->t.IsOdd and (t mod 7=0));
if aInd.Count=0 then Writeln('Нет нечетных чисел, кратных 7')
else begin
Write('Номера нечетных элементов, кратных 7: ');
aInd.Select(i->i+1).Println(',')
end
end.
Пример
n= 20
-38 -50 51 -90 66 -7 49 37 -91 2 69 44 -83 73 68 -99 72 -18 80 32
Номера нечетных элементов, кратных 7: 6,7,9
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var aInd:=a.IndexesOf(t->t.IsOdd and (t mod 7=0));
if aInd.Count=0 then Writeln('Нет нечетных чисел, кратных 7')
else begin
Write('Номера нечетных элементов, кратных 7: ');
aInd.Select(i->i+1).Println(',')
end
end.
Пример
n= 20
-38 -50 51 -90 66 -7 49 37 -91 2 69 44 -83 73 68 -99 72 -18 80 32
Номера нечетных элементов, кратных 7: 6,7,9
Пожаловаться
- 01.01.1970 00:00
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы