1. Дан массив В(7). Найти модуль минимального и квадратный корень максимального элементов...

Question

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

Comments

Язык программирования?

---

Когда не задан язык, отвечающий на вопрос вправе выбрать любой. Вплоть до естественного или блок-схемы.

---

Язык програмирования Паскаль АВС

Answer 1

// 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