Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Vasilisa260216
28.10.2021 04:47 •
Информатика
Дан одномерный массив x1 x2 xn найдите все элементы кратные 5 напишите решение в паскале
Ответ:
ира1005
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 оценок)
Популярные вопросы: Информатика
Sergay121
24.01.2021 08:34
Составьте программу к задаче: Возвести данное число в куб,если оно чётное, и увеличить на 3, если оно-нечётное ...
EvgeniyNou
21.02.2020 00:08
На каких платформах работает SketchUp?...
Кисамяумяумур
31.01.2020 07:32
Транлятор входит в любую систему программирования? да\нет...
зефирка39
17.03.2023 09:22
Реши : алеша попович и добрыня никитич воюют с пятиглавым змеем.богатыри по очереди ходят к его пещере и отрубают 1,3 или 4 головы.отрубленные головы снова не вырастают.как...
AlexCairon5
12.06.2022 12:23
Что такое трехметровая графика не пешите всякую ерунду !! ...
zhenyakrestins
30.11.2021 18:34
Для исполнителя Кузнечик был создан следующий алгоритм:Выполните алгоритм, начиная с маркера 0, и выделите числа, маркеры которых были перекрашены Кузнечиком.Выделите...
egorowasnezhana
19.02.2022 04:46
Дано: writeln (s:6:2); Если s=144,28226, то на экране появится...
вика3875
23.04.2021 05:05
6. Перечислите форматы файлов, в которых используется сжатие с потерями. * ZIP* MPG*.JPG* RAR* GIF...
kulagindemid20
23.09.2021 08:35
ТАБЛИЦА ИСТИННОСТИ ЛОГИЧЕСКОГО ВЫРАЖЕНИЯ...
Адил1111111111
16.08.2022 15:06
На последнем секретном задании шпион под кодовым именем Оберон нашел жесткий диск с важными засекреченными данными. Он сумел быстро скопировать необходимую информацию...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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