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