1. дан массив в(7). найти модуль минимального и квадратный корень максимального элементов массива. массив заполняется с клавиатуры. 2. массив d(6) задан на [-1,50). найти произведение всех элементов массива, кроме минимального и максимального. заранее )

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var b:=ReadArrInteger('Введите 7 чисел',7);
  Writeln('|min|=',abs(b.Min),', sqrt(max)=',sqrt(b.Max));
  var d:=ArrRandom(6,-1,50); d.Println;
  Writeln('Произведение: ',d.Except(Arr(d.Min,d.Max))
    .Aggregate(integer(1),(p,i)->p*i))
end.

Тестовое решение
Введите 7 чисел 35 -10 18 0 16 8 13
|min|=10, sqrt(max)=5.91607978309962
29 11 38 49 45 19
Произведение: 942210