Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
михалыч676
30.06.2020 08:58 •
Информатика
Дан одномерный массив x1 x2 xn найдите все элементы кратные 5 напишите решение в паскале
Ответ:
anashakirova09
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 оценок)
Популярные вопросы: Информатика
вау1905
22.01.2020 09:39
Напишите программу, разделяющую мелодии разных видов лягушек. К розовым лягушкам (Pink Frogs) относятся числа, кратные пяти или большие 1000. К ядовитым (Poisonous...
aantonenko240
28.04.2021 19:02
Өрнекті дәреже түрінде жазындар...
Varvara2001
10.01.2022 07:19
Ғылымда бірінші кезеңде не өткізіледі...
Hilet
10.01.2022 07:19
Составьте сбалансированное молекулярное, полное и сокращенное ионное уравнения реакций c образованием осадка, газа и воды. a) K2СO3 + СaCl2 → b) Na2SiO3 + HNO3...
русланчик8
21.08.2022 06:01
сор по матеши Там не много все в картинке...
AnnYtAa1
28.07.2022 02:44
1.(3б) Используя рисунок, приведите по два примера: А) равных векторов: Б) коллинеарных векторов: С) перпендикулярных векторов:...
MSZaDrotE
28.07.2022 02:44
поже⊂((・▽・))⊃ Вы решили приготовить теплую ванну, комфортная температура для водных процедур 350С. Вы набрали 60 л воды при температуре 200С. Определите, сколько...
математик215
28.07.2022 02:44
Буындарға тән ерекшелік (бірнеше жауап дұрыс) А) Дауысты дыбыс болу керек Б) Бір дауысты дыбыс жеке тұрып буын құрайды В) Сөзде неше дауыс дыбыс болса, сонша буын...
whitepanda1
28.07.2022 02:44
Алгашкы адамдардын аулаган аны айтындаршы ...
DashaKim123
28.07.2022 02:44
Укажите в каких предложениях допущены пунктуационные ошибки при обособлении определений . Всё на фото...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// 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