Pascal, Basic, C++, Fortran
//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.
Чтобы обмениваться сообщениями на большом растоянии (писменныси и быстро)
<span>1024мб+512мб+341мб 1/3кб+170мб 2/3кб = 2048мб или 2гб</span>
Проделил два раза все верно получилось! 11000000