Pascal ABCNET
Пусть даны целые числа a1,a2,...,an.Получите новую последовательность,выбросив из исходной максимальный и минимальный члены.
Пусть даны целые числа a1,a2,...,an.Получите новую последовательность,выбросив из исходной максимальный и минимальный члены.
More Questions From This User See All
Answers & Comments
===== 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.