Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
anjutaboyycova
28.01.2022 15:52 •
Информатика
Написать программу,которая вводит массив из 9 целых чисел и выводит на экран только чётные числа из массива.реализовать понятный пользовательский интерфейс программы.
Ответ:
mrflux
06.10.2020 06:13
// PascalABC.NET 3.2, сборка 1436 от 01.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 9 целых чисел через пробел:',9);
Write('Четные числа: ');
a.Where(n->n.IsEven).Println
end.
Пример
Введите 9 целых чисел через пробел: -5 8 0 -12 7 13 26 -40 15
Четные числа: 8 0 -12 26 -40
0,0
(0 оценок)
Популярные вопросы: Информатика
ZaraKerimova
28.02.2022 03:16
Написать программу на паскале, которая вычислит точки пересечения двух функций....
Annet234
28.02.2022 03:16
Впишите пропущенные операции: фрагмент ↓ выделяется форматируется перемещается удаляется зарание ! : )...
TyTToŪLLlkoJlbHuK
05.10.2022 15:44
Что может рассматриваться в качестве фрагмента текста? варианты: символ слово строка предложение абзац документ последовательность ! буду...
ershvik781
05.10.2022 05:01
4. Файл размером 90 Кб передаётся через соединение со скоростью 6144 бит в секунду. Определите, на сколько килобайт больше можно передать за это же время, если скорость соединения...
UbisCraft
27.11.2022 06:46
Выразите в кб 1024 байт 2¹⁰ байт2¹⁰ бит2¹³ байт2¹⁶ байт2¹³ бит...
amulina2015
27.11.2020 18:40
Степень вершины графа-17,значит вершина графа нечётная или чётная.ответ с объяснениям...
Антон11111111112
14.01.2023 15:06
Як познячається логічна операція “більше” в мові програмування Free Pascal?...
ThreeCats
12.10.2022 20:45
Реши задачу. (ответ округли до целых). Книга содержит 139 страниц. На каждой странице 35 строк. В каждой строке 56 символов (включая пробелы). Найти информационный объём текста,...
Aidos2011
29.03.2023 11:20
Выражение является истинным высказыванием для значения х: 1. 5 2. 4 3. 9 4. 2...
karinakarim
24.02.2022 17:56
Написать на языке паскаль программу вычисления у по формуле: y=(1-x^2 + 5x^4)^4 где х целое число...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 9 целых чисел через пробел:',9);
Write('Четные числа: ');
a.Where(n->n.IsEven).Println
end.
Пример
Введите 9 целых чисел через пробел: -5 8 0 -12 7 13 26 -40 15
Четные числа: 8 0 -12 26 -40