Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
баги82
02.06.2023 20:12 •
Информатика
1)найти максимальный элемент средт четных элементов массива 2)массив задан датчиком случайных чисел на интервале от -37 до 66 найти наим нечетный элемент
Показать ответ
Ответ:
zincenkoe759
06.10.2020 23:12
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Максимальный четный элемент: ',a.Where(x->x.IsEven).Max);
end.
Пример
n= 15
49 -55 14 3 -29 -18 -23 -54 -82 -68 75 45 86 0 -82
Максимальный четный элемент: 86
begin
var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
Writeln('Минимальный нечетный элемент: ',a.Where(x->x.IsOdd).Min);
end.
Пример
n= 13
-8 25 -1 40 52 -6 34 -23 44 -30 -14 -6 33
Минимальный нечетный элемент: -23
0,0
(0 оценок)
Популярные вопросы: Информатика
sofiakuznetsova2004
13.05.2023 01:55
Логическая функция F задаётся выражением ¬a ∨ (b ∧ ¬c). Определите, какому столбцу таблицы истинности функции F соответствует каждая из переменных a, b, c. В ответе напишите буквы...
olgamarinina1
14.12.2022 12:47
У чому полягає форматування носів даниx?...
тогжан22
23.08.2020 05:42
Перечисоите экологические проблемы антарктиды...
Mykolaj8
23.08.2020 05:42
Примеры самоотверженности в рассказах. 6 класс...
kitiry
23.08.2020 05:42
Вкаком случае оба существительных пишутся слитно с не? a) (не)настье, (не)акула b) (не)погода; (не)счастье, а беда c) (не)внимательность, (не)былица d) (не)правда, а ложь; (не)добро,...
maxmaxibon11
23.08.2020 05:42
Определи падет выделенных имен существительных. а) вода камень точит. б) туча закрыла небо. в) рыбак рыбака видит издалека....
karolina85
23.08.2020 05:42
Сокращенное ионное уравнение 2н+ + со32– = со2+ н2о соответствует взаимодействию: серной кислоты с карбонатом магния; кремниевой кислоты с карбонатом магния; серной кислоты с карбонатом...
lenalime
23.08.2020 05:42
Решить по feso4+pb(no2)2 ; na2so4 + hcl ; cuo + h2o ; zncl2 + agn ; mg(oh)2 + hcl ; ba(oh)2 + so ; zno + co2 ; al2o3 + nano3 ; k2 + h2so4...
vanyaver
23.08.2020 05:42
Определить протяженность африки по меридиану 30 градусов....
merinovamilania
23.08.2020 05:42
Назовите основные общественно-политические течения в россии и европе || четв. xix в....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('Максимальный четный элемент: ',a.Where(x->x.IsEven).Max);
end.
Пример
n= 15
49 -55 14 3 -29 -18 -23 -54 -82 -68 75 45 86 0 -82
Максимальный четный элемент: 86
begin
var a:=ArrRandom(ReadInteger('n='),-37,66); a.Println;
Writeln('Минимальный нечетный элемент: ',a.Where(x->x.IsOdd).Min);
end.
Пример
n= 13
-8 25 -1 40 52 -6 34 -23 44 -30 -14 -6 33
Минимальный нечетный элемент: -23