Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
kapikyna
24.01.2023 09:22 •
Информатика
Напишите программу, которая вводит массив из n целых чисел и выводит на экран элементы, кратные числу k. протестировать программу на следующих исходных данных: а) k=3 массив: 2 6 -9 4 5 12 -15 б) k=4 массив: 9 0 8 124 -16 11 19
Показать ответ
Ответ:
Aldiyar26
31.08.2020 15:29
Begin
var ar := readarrinteger(readinteger('Введите n:'));
var k := readinteger('Введите k:');
ar.Where(x -> x mod k = 0).print;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Женёк2006457
25.04.2023 17:00
Там не сложно, просто мне лень делать :)...
pcd1gg
13.05.2020 09:17
НА PYTHON: Написать программу, которая выводит ваш возраст в формате: Вам XX ГОД/ГОДА/ЛЕТ ; нужно чтоб было правильное слово именно, типа года, год ,лет. БЕЗ СПАМА...
Алина052408
30.04.2020 20:28
Қандай ақпараттың көмегімен қойылған мәселені шешуге болады...
corvet42
18.06.2021 16:51
Задан массив a. Если максимальный и минимальный элементы расположены между первым и последним нулем, то все положительные элементы массива увеличить в 10 раз....
darabajkova4770
20.02.2023 03:56
Какие устройства относятся к вводу и выводу информации ( перечислить )...
fara32
19.03.2020 12:20
Однажды тому Сойеру необходимо было покрасить забор.Но просто красить забор - утомительное дело для тома поэтому во время перерыва он начал переливать краску между...
magnoliya220619
02.02.2021 10:44
Создайте базу данных видеопрокат содержащий название фильма ,цену, режиссера ,жанр, год создания, страну ,сдан ли фильм в прокат или нет разбейте информацию на несколько...
rtydykov
27.04.2023 16:16
сделать две задачи по информатике в Паскале, написать подробное решение!...
mrazamar0kk
15.11.2022 02:03
Упростите логические выражения ...
ESKIMO111
24.02.2022 22:05
Найди соответствия поколений ЭВМ ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var ar := readarrinteger(readinteger('Введите n:'));
var k := readinteger('Введите k:');
ar.Where(x -> x mod k = 0).print;
end.