Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
dashavasileva5
22.02.2020 02:30 •
Информатика
Вам дан массив а длины н вы можете удалить некоторые элементы из него при этом после всех удалений элементы должны стоять строго возрастаюшем порядке выведите максимальную возможную длину массива после всех удалений
Показать ответ
Ответ:
Фея1011
07.10.2020 17:00
//PascalABC.NET 3.3,сборка 1611 от 06.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99);
var A:=mas.OrderByDescending(t->t).ToArray;
var st:=new Stack<integer>; A.ForEach(t->st.Push(t)); st.Println;
st.Where(t->t < 15).Println;
st.Where(t->t < -20).Println;
Println('Длина после двух удалений =',st.Where(t->t < -20).Count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
corvet42
17.11.2020 11:11
Дан двумерный массив из пятнадцати строк и двух столбцов. найти мини- мальную сумму элементов в двух соседних строках...
danchikpozitiv
17.11.2020 11:11
Впаскале: составить программу, вычисляющую n факториал (n вводится с клавиатуры)....
hiraslife
17.11.2020 11:11
Написать программу на языке паскаль уровень b. заполнить массив случайными числами в интервале [0,100] и отобрать в другой массив все простые числа. используйте...
azovska552
21.05.2022 01:58
Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы введенных чисел....
nikinouston342
18.10.2022 02:27
Алфавит племени чунга-чанга содержит только 30 букв, точку и пробел. какое количество информации несёт один символ в таком алфавите?...
shepa174
11.05.2022 08:02
Синтаксический разбор слова каждого...
ivoleg13
11.05.2022 08:02
Человек различает 1) 2 вкуса 2) 5 вкусов 3) 3 вкусов 4) 4 вкуса...
Horoshist2287
11.05.2022 08:02
Освещённый, нерасчищенная дорожка, багряную, не убраны, не спрятанные, некрашеная скамейка, по усыпанной листьями аллее. эти слова есть в диктанте ! может кто-то...
Iliyz
11.05.2022 08:02
Сочинение на тему: что бы я сделал если бы стал президентом?...
girlssss
11.05.2022 08:02
Напишите 20 загадок про только сложных....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Внимание! Если программа не работает, обновите версию!
begin
var mas:=ArrRandom(20,-99,99);
var A:=mas.OrderByDescending(t->t).ToArray;
var st:=new Stack<integer>; A.ForEach(t->st.Push(t)); st.Println;
st.Where(t->t < 15).Println;
st.Where(t->t < -20).Println;
Println('Длина после двух удалений =',st.Where(t->t < -20).Count);
end.