Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Kisha12345
25.02.2022 02:02 •
Информатика
Составить программу которая формирует массив из 12 случайных чисел от 0 до 40 и выводит на экран чётные элементы массива
Показать ответ
Ответ:
Tusovik
07.10.2020 12:04
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,0,40); a.Println;
a.Where(t->t.IsEven).Println
end.
Пример
19 22 12 20 39 31 23 9 32 7 2 10
22 12 20 32 2 10
0,0
(0 оценок)
Популярные вопросы: Информатика
Dendizevs
17.10.2021 22:00
Какая из формул содержит в записи ошибку? 1) =b3*sin(a2)+7 2) =(a13+(d4-4)*4)/8) 3) =cos(d2+12) 4) d3*(a4+b2)...
Кэти305
17.03.2020 18:40
Вэлектронных таблицах выделена группа ячеек a1: b1. сколько ячеек входит в эту группу?...
werer1973
06.06.2021 08:15
с тестом по работе с ревизиями...
Sashka1712
12.10.2020 19:42
Постройте таблицы истинности для следующих выражений: а) x∨y∨¬z; б) ¬x∨¬y∨¬z; в) ¬( x∧y∧z ); г) ¬( x∨¬y∨z)....
krutikovaelizaozax2f
20.01.2020 03:28
Найти сумму всех элементов расположенных выше главной диагонали...
spring004
15.11.2021 09:21
На ресунке 3.19 показана схема движения робота. Найдите ошибку в программе (рис. 3.20)....
Imao
13.07.2021 09:58
Напишите пример конкатенации двух текстов *...
DakotaDp
19.10.2020 18:57
Для кодирования одного пикселя используется 4 байта. Фотографию размером 30962048 пикселей сохранили в виде несжатого файла. Определите размер полученного файла. Я смотрел...
byrzakovskaya
24.10.2021 19:10
Нужно построить дерево файлов, зная их исходный путь...
nastiadair
08.07.2022 05:18
Для групповых операций с файлами используются маски имен файлов. Маска представляетсобой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которыхтакже...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(12,0,40); a.Println;
a.Where(t->t.IsEven).Println
end.
Пример
19 22 12 20 39 31 23 9 32 7 2 10
22 12 20 32 2 10