Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
gennadih90
11.11.2020 00:44 •
Информатика
Из массива a(n) с целыми значениями удалить все нулевые элементы
Ответ:
masyanyapar
08.10.2020 21:11
PascalABC.NET 3.4.0, сборка 1677 от 17.06.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
a:=a.Where(t->t<>0).ToArray; a.Println
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
карыч19
04.07.2021 23:19
Решить задачу. Сколько минут принтер будет распечатывать документ, если: 1. В документе 30 листов, 2. На каждой странице 60 строк по 50 символов, 3. Принтер выпечатывает за 1 минуту...
сергей1106
16.04.2022 00:24
30 дан рекурсивный алгоритм procedure f(n: integer); begin writeln(n); if n 10 then begin writeln(n); f(n*2); f(n*n) end end; найдите сумму чисел, которые будут выведены при вызове...
eka04599
12.03.2023 17:25
Президент компании «x» выбирает из 4 сотрудников директора компании, остальные же будут заместителями директора. сколько вариантов существует у президента компании?...
roman2016volko
30.10.2020 22:38
Консультант плюс это ...,основу которой составляет ... ... и в которой документы располагаются ......
marmeoladikp07wow
22.08.2020 16:09
1. В русском алфавите 32 буквы. Сколько бит информации содержит сообщение из 100 букв русского алфавита?...
sholpsholp3owhb3d
03.07.2022 01:27
Масса 6 мешков цемента равна 200 кг,во всех мешках цемента поровну. Найди массу 18 таких мешков цемента...
gkulgkuy
18.08.2022 07:56
Сколько целых чисел расположено н координатной прямой между числами (-3,7) и 5,1...
Sillyteenager
13.04.2023 05:57
Работу органов движения регулирует...
ryzhovaelena1
13.06.2022 13:50
Выписать из данного списка отдельно основные и кислотные оксиды...
алиса808
03.07.2022 01:27
. Вычисли.112 . 4213 - 3332 - 3131 - 2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-5,5); a.Println;
a:=a.Where(t->t<>0).ToArray; a.Println
end.