Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Aurelli1
17.07.2020 11:16 •
Информатика
Вывести на экран 10 случайных чисел в диапазоне от -100 до 100 и найдите кол-во четных и не четных чисел. pascal
Показать ответ
Ответ:
valeria8002
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 оценок)
Популярные вопросы: Информатика
hasan095mudrec
11.11.2020 07:03
Даны три натуральных числа А, В, С, которые обозначают число, месяц, год. Найти порядковый номер даты, начиная отсчет с начала года. Pascal...
GGG123366699
18.05.2021 10:39
1. Определите значение переменной с после выполнения следующего фрагмента программы: a=18 b= 20 c=3*b - a c= c +8 print(c) 2. Написать программу, которая определяет,...
хорошистка553
22.02.2020 01:06
2. Объясните, почему векторные изображения легко маштабируются без потери качества...
msfokkck
05.03.2022 08:07
130-секундная стереозапись, выполненная с частотой дискретизации 1200 гц, с качеством 28 бит на канал была сохранена в формате mp3, размер которого оказался равным 456000...
Vladlena151215
03.04.2021 18:58
С++ ! вася работает программистом и получает 50$ за каждые 100 строк кода. за каждое третье опоздание васю штрафуют на 20$. реализовать меню: - пользователь вводит желаемый...
iluza3
23.02.2020 02:44
Пароль от почтового ящика в виде четырехзначного числа вася зашифровал так: цифры,занимающие четные разряды(нумерация разрядов ведется справа налево начиная с нуля),циклически...
Polinkamalina2017
23.02.2020 02:44
Как сделать прозрачный фон у png в sai?...
Мамаева2007
29.01.2022 11:12
Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел. ниже рекомендуемый вид экрана во время работы программы. таблица квадратов....
amina51205
26.03.2022 22:16
Сумма двух чисел в программе записывается как: a. let a+b b. sum a+b c. s: =a+b d. a+b: =s e. let s: =a+b...
крузейро
23.11.2021 07:45
Чему было равно значение переменой b, если после выполнения алгоритма a = 5; c = (a-b-1)*3; d = c+a+b; f = a*b*c-d f стало равно 34?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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