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