Question

Pascal ABCNET

Пусть даны целые числа a1,a2,...,an.Получите новую последовательность,выбросив из исходной максимальный и минимальный члены.

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var (min, max) := (a.Min, a.Max);

 a := a.Where(p -> (p <> min) and (p <> max)).ToArray;

 a.Println

end.