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