Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alinasharifulli
21.02.2022 08:45 •
Информатика
Дан одномерный массив x1 x2 xn найдите все элементы кратные 5 напишите решение в паскале
Показать ответ
Ответ:
kholmatova002
07.10.2020 13:19
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'), ReadInteger('Промежуток от:'), ReadInteger('До:')); a.Println;
a.Where(t->t mod 5=0).Println;
end.
Пример:
Введите размер массива: 10
Промежуток от: 1
До: 50
35 15 37 21 8 15 33 20 24 36
35 15 15 20
0,0
(0 оценок)
Популярные вопросы: Информатика
Ариана141197374
28.10.2022 03:56
Начинающий веб мастер чебурашка разрабатывает портал «домик друзей» при этом в ссылке на страницу крокодила гены « crocodyle” при переходе по данной ссылке чебурашка...
tinytigerkar
19.11.2020 04:34
Считая что каждый символ кодируется в кодировке Unicode, оцените информационный объем следующей фразы: В шести литрах 6000 миллилитров....
даша3901
11.01.2021 06:28
ИнформацияНЕ должна быть:объективнойпонятнойполнойпостояннойполезнойдостовернойактуальной...
Anny2404
05.03.2021 09:48
какая функция используется в паскале для вывода случайного числа в интервале от 1 до n?...
юлия19844
20.08.2021 22:06
Ввести 2 числа. Если их произведение отрицательно, умножить оба на 2 и вывести на экран, в противном случае увеличить оба в 3 раза и вывести на экран....
Великолепныйум
30.10.2022 22:53
Как известно любому известному кинорежиссеру, на качество картины может повлиять большое количество факторов: сценарий, актерский состав, костюмы и окружение, монтаж,...
barbara27
31.07.2020 06:51
вычислите величину адресного пространства процессора ( ядерная шина 32-разрядная) ...
18фо
28.11.2020 20:01
Какова информационный вес одного символа компьютерного алфавита мощность которого равна 512? ...
Ventana1263
28.06.2021 09:02
Сообщение записано буквами из 32 символьного алфавита содержит 45 символов какой объем информации оно несёт...
Какашки456
10.01.2022 15:31
Все задания в скриншоте...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Cборка 1590 от 03.12.2017
begin
var a:=ArrRandom(ReadInteger('Введите размер массива:'), ReadInteger('Промежуток от:'), ReadInteger('До:')); a.Println;
a.Where(t->t mod 5=0).Println;
end.
Пример:
Введите размер массива: 10
Промежуток от: 1
До: 50
35 15 37 21 8 15 33 20 24 36
35 15 15 20