В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
lianadoschik12
lianadoschik12
24.12.2021 21:40 •  Информатика

Вывести на экран 10 случайных чисел в диапазоне от -100 до 100 и найдите кол-во четных и не четных чисел. pascal

Показать ответ
Ответ:
iirunka153
iirunka153
05.10.2020 02:34
// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-100,100); a.Println;
  var n:=a.Where(x->x.IsEven).Count;
  Writeln('Четных- ',n,', нечетных- ',10-n)
end.

Пример
44 79 -39 29 -81 -50 33 -96 52 -47
Четных- 4, нечетных- 6
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота