Вам дан массив а длины н вы можете удалить некоторые элементы из него при этом после всех...

Question

Вам дан массив а длины н вы можете удалить некоторые элементы из него при этом после всех удалений элементы должны стоять строго возрастаюшем порядке выведите максимальную возможную длину массива после всех удалений

Answer 1

//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; 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.

---