Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Lugazat
03.12.2021 02:40 •
Информатика
Оставить в массиве те элементы, которые не делятся ни на 2, ни на 3, ни на 5. массив сжать.
Показать ответ
Ответ:
KristinaKinka
04.10.2020 20:49
// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where(x->(x mod 2<>0) and (x mod 3<>0) and
(x mod 5<>0)).ToArray;
a.Println
end.
Пример
n= 20
18 3 19 -3 40 -27 43 -1 4 -21 -12 3 -14 3 -27 37 45 11 23 -28
19 43 -1 37 11 23
0,0
(0 оценок)
Популярные вопросы: Информатика
Azimov1177
22.03.2023 04:41
задана длина стороны квадрата a. Написать программу нахождения площади квадрата и длинны его диагонали...
DashaHB16
31.07.2021 04:00
Ұсынылған өрістермен, программалық кодпен таныс және роботтың өткен қызыл, сары және жасыл өрістердің санын анықта.Қызыл -4 сары -2, жасыл - 1Қызыл -3, сары - 2, жасыл...
Танякваша17
03.06.2023 22:12
Соотнеси элементы окна и их названия....
alinkarazborova
01.08.2021 01:22
Рассматривается множество целых чисел, принадлежащих числовому отрезку [-9563; -3102], которые удовлетворяют следующим условиям: − кратны 7, но не кратны 11 и 23; −...
Margo11111122223332
17.08.2022 00:14
Что за папка, в папке Windows 8.1 (система) и папка SearchBar?, там всякие start.cmd, uninstall.exe, main.html, assets-css-js, icon.ico и тд...
tbbkc
22.09.2022 22:53
Сканируется цветное изображение размером 35,56×35,56 дюйм. Разрешающая сканера — 1200×1200 dpi, глубина цвета — 8 бита. Какой информационный объём будет иметь полученный...
lightningwhite
03.09.2022 00:45
Придумать 2 фигуры и запрограммировать их рисование Роботом с использованием цикла N раз...
gbgar
02.01.2020 10:22
, много , суммативная информатика 8 класс 4 задания ...
DanilPRO20172007
06.04.2021 12:05
1. Объявите в соответствующих разделах программы: строковую константу С со значением сумма и целочисленную переменную В. Запишите как этот фрагмент программы будет выглядеть.2....
Linaa631
04.12.2021 05:42
Решить задачу в программе Кумире: «Почтальон Печкин выехал на велосипеде в Простоквашино со скоростью 15 км/ч, одновременно с ним выбежал Шарик со скоростью 20 км/ч....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a:=a.Where(x->(x mod 2<>0) and (x mod 3<>0) and
(x mod 5<>0)).ToArray;
a.Println
end.
Пример
n= 20
18 3 19 -3 40 -27 43 -1 4 -21 -12 3 -14 3 -27 37 45 11 23 -28
19 43 -1 37 11 23