Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
krut2202
20.07.2021 13:13 •
Информатика
Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( на паскале)
Показать ответ
Ответ:
umida1983
27.08.2020 07:16
// PascalABC.NET
// Версия 3.3.5 сборка 1662 (29.04.2018)
begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.
Пример:
1 2 3 4 5 6 7 8 10 10
Четных больше
0,0
(0 оценок)
Популярные вопросы: Информатика
vika5658
06.07.2020 07:26
Группа изображений на слайде обладает возможностями, применимыми: Выберите один ответ: a. Только к фигурам b. Только к изображениям c. К изображениям и таблицам d. К...
godofwar171
23.08.2021 13:56
Сделала программу на паскале с цикла while. Вначале считал нормально, а потом появились вот такие значения, при том, что числа должны отличаться на 0,001. Как это исправить?...
Alisascol
30.05.2021 21:14
Задание 1. Постройте логическую схему, соответствующую логическому выражению и найдите значение логического выражения:F = ¬(AvB&C), если А=0, В=1, С=1.Задание 2.Составить...
Шан15
05.02.2022 05:27
3. Определите информационный объем символов, если мощность алфавита составляет 32 буквы. 5 7 4 2...
rtgreezz
12.05.2022 22:05
Назовите и опешите два позволяющих уменьшить размер документа в формате jpg. Наименования1: Описание: Наименование2: Описание:...
Kiri205
16.06.2022 09:10
Найти площадь криволинейной трапеции у=2/х ,х, х=1 х=4...
khursin03
16.06.2022 09:10
Расставь скобки так,чтобы получились верные равенства 12x16+128: 8+24=240 12x16+128: 8+24=196 12x16+128: 8+24=64...
мадина488
16.06.2022 09:10
Укажи отличительные особенности морей северного ледовитого океана норвежское море- белое море- гренландское море- баренцово море- кто нибуть если даже один...
dimon4ikk122
16.06.2022 09:10
Внекоторой точке пространства напряженность поля точечного заряда равна 25кв/м. модуль заряда увеличили в 4 раза. чему стала равна напряженность поля в той же точке?...
artiom726
29.07.2022 19:26
Площадь поверхности куба равна 54 см*2 чему равна длина ребра куба...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Версия 3.3.5 сборка 1662 (29.04.2018)
begin
var m := ReadArrInteger(10);
var (o, e) := (m.Where(t -> t.IsOdd).Count, m.Where(t -> t.IsEven).Count);
Println(o > e ? 'Нечетных больше' : o = e ? 'Поровну' : 'Четных больше');
end.
Пример:
1 2 3 4 5 6 7 8 10 10
Четных больше