Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
margo2200078
13.09.2021 15:35 •
Информатика
Прочитать массив из 10 элементов и написать каких элементов больше четных или нечетных. ( на паскале)
Показать ответ
Ответ:
adidas2963
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 оценок)
Популярные вопросы: Информатика
khsush
16.12.2021 02:55
Примеры алгоритмов на различных уроках...
snow15
26.10.2020 02:17
Напишите программу, которая работает с двумя целыми числами, введёнными с клавиатуры. программа выводит все чётные числа, расположенные в интервале между двумя...
sasd2
04.11.2022 07:51
Рядом с колодцем стоят два ведра – на 5 и 12 литров. мальчику нужно с их отмерить ровно 9 литров воды. опишите, какие из указанных ниже действий и в какой последовательности...
Lososepotam
27.11.2021 05:44
если залил клаву ноута пепси что делать что бы прочисть её не разбирая ничего! ?...
Fish474
08.03.2020 07:26
Расшифруйте слова: еравшн,умызак,ашнрри,ркдети. тоже самое,только здесь нужно расшифр.и убрать буквы(например ткафетра-карета) ткнитсни тицартна ланигиро...
Рвововоаоа
16.05.2020 12:07
Найдите координаты вектора ав, если а(2; -6) в(3; 0)...
grisharazumovs
15.07.2022 08:53
Задать общий вопрос к этим предложениям: 1) we were here last month 2) he has done a fine job. 3) bella was a good student. 4)...
benslip13
11.01.2022 19:12
Каковы значения переменных х и у после выполнения операторов х=2; y=5 х=y; y=х; a)5 5 b)2 5 c)0 5...
chudnova2001kp07wio
11.01.2022 19:12
Произведение двух чисел - четное число.будет ли сумма этих чисел четным числом?...
arzunurieva
05.06.2023 17:55
Какой у меня будет если в электронном дневнике 3,00 если мне поставят 2 с весом 3! ? какая какой у меня будет! ? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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
Четных больше