Question

Упражнение 4. Массив целых чисел из 10 элементов заполнить случайным образом. Упорядочить массив по возрастанию. Найти сумму квадратных корней нечетных элементов матрицы, вывести полученные результаты.
Упражнение 5. Массив целых чисел из 14 элементов заполнить случайным образом. Упорядочить массив по возрастанию. Вывести на экран максимальный и минимальный элементы, найти их разность.

Упражнение 6. Массив целых чисел из 10 элементов заполнить случайным образом. Упорядочить массив по возрастанию. Подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат.

Answer 1

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