Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Buboschka
17.03.2020 03:48 •
Информатика
Вам дан массив а длины н вы можете удалить некоторые элементы из него при этом после всех удалений элементы должны стоять строго возрастаюшем порядке выведите максимальную возможную длину массива после всех удалений
Показать ответ
Ответ:
asyamilos
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 оценок)
Популярные вопросы: Информатика
АлинаКотик11111
31.03.2021 03:03
Операционные среды операционных систем подготовить сообщение...
Vadimus2005
21.06.2020 13:32
какие субъекты информационной деятельности вы знаете? ...
kkalipso
10.12.2022 17:04
Даны четыре слова, напечатать слово, имеющее максимальную длину! это паскаль,напишите программу ,по возможности блок схему...
bopoh234567
10.12.2022 17:04
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. программа получает на вход количество чисел в последовательности,...
oliasnigur2016
18.05.2023 17:55
Составьте проект, в котором исполнитель четыре раза сыграет некоторую мелодию, если нажата клавиша пробел, или переместится на 100 шагов вниз, если будет нажата клавиша...
MRI220
21.05.2022 07:00
Фонетический разбор слова ульи,съезд...
morpeh4575
21.05.2022 07:00
My sister was wearing a dress, which suited her perfectly. a) red/lace/beautiful/long b) beautiful/ red/ long/ lace c) beautiful/ long/ red/ lace d) long/ red/ beautiful/...
funisinfinity26
21.05.2022 07:00
10. (2 ) укажите частицы, в электронной оболочке которых имеется 10 электронов: а) атом неона б) ион в3+ в) ион о2- г) ион о2+...
ksushakorovina1
21.05.2022 07:00
Выберите из списка понятия,которые характеризуют изменения,происходящие в обществе. 1)прогресс 2)регресс 3)культура 4)революция 5) реформа...
kolitka1
21.05.2022 07:00
которым можно получить осадок, – это: 1) cacl2 + nabr … ; 2) cacl2 + h2o + co2 … ; 3) ca(oh)2 + co2 (недостаток) … ; 4) ca(oh)2 + co2 (избыток) … . 2) серная кислота...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.