Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
putin12344
03.02.2020 10:45 •
Информатика
Вам дан массив а длины н вы можете удалить некоторые элементы из него при этом после всех удалений элементы должны стоять строго возрастаюшем порядке выведите максимальную возможную длину массива после всех удалений
Показать ответ
Ответ:
2ihnik21231
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 оценок)
Популярные вопросы: Информатика
romapotseluiko
11.10.2020 06:03
Три ученика – саша, миша и леша – пришли домой из школы, и кто-то из них получил двойку. один из них всегда лжет, другой всегда говорит правду, а третий то говорит правду, то лжет....
dobylarsen
11.10.2020 06:03
Завтра нужно сдавать, подробно нужно скорость передачи данных по некоторому каналу связи равна 32 768бит/ с. передача текстового файла по этому каналу связи заняла 15 с.определите...
дядя22323
18.12.2021 06:13
Дан массив из n различных целых чисел zero -это произвольная четыре числа из этого массива, сумма которых равна нулю. найдите сколько различных zero существует на этой массиве....
BTS111111y
23.03.2022 01:47
Написать программу построения указанной цветной фигуры(паскаль) ! завтра экзамен...
Зорро2017
30.03.2023 14:53
Овеликие люди)! выполнить перевод чисел из десятичной системы счисления в другую: 67 в двоичную с/с 95 в троичную с/с 103 в четверичную с/с 246 в восьмеричную с/с 421 в шестнадцатеричную...
ПростоРадмир001
10.05.2023 17:50
Как осуществляется в текстовом редакторе поиск и замена?...
Danelpos
04.08.2020 11:51
Программа в паскале. надо двумерный массив ввывести змейкой по горизонтали справа на лево(5*5)...
sanyashoydokov
04.08.2020 11:51
Напишите программу на паскале.дан целочисленный квадратный массив 10x10.найти сумму максимальных элементов из каждой строки.предпологается, что в каждой строке такой элемент единственный...
ткач2
04.08.2020 11:51
Расположите числа в порядке возрастания 748, 1100102, 7210, 3716?...
ruhadzeulia1
07.12.2020 14:11
Расположите числа в порядке возрастания 6e16 1428, 11010012, 10010...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.