4. массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. найти сумму квадратных корней нечетных элементов матрицы, вывести полученные результаты. 5. массив целых чисел из 14 элементов заполнить случайным образом. упорядочить массив по возрастанию. вывести на экран максимальный и минимальный элементы, найти их разность. 6. массив целых чисел из 10 элементов заполнить случайным образом. упорядочить массив по возрастанию. подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат.
begin
var arr := ArrRandom();
Sort(arr);
arr.Println;
Print('Sum of odd''s elements'' square roots is ',
arr.Where(el -> el.IsOdd).Sum(el -> el.Sqrt));
end.
// 5
begin
var arr := ArrRandom(14);
Sort(arr);
WritelnFormat('Max = {0}, Min = {1}, Max - Min = {2}',
arr.Max, arr.Min, (arr.Max - arr.Min));
end.
// 6
begin
var arr := ArrRandom();
Sort(arr);
arr.Println;
Print('Count = ' + arr.Where(el->(el>20) and (el<50)).Count + newline +
'Product = ' + arr.Where(el->(el>20) and (el<50)).Aggregate(1,(p,x)->p*x));
end.