Упражнение 4. Массив целых чисел из 10 элементов заполнить случайным образом. Упорядочить массив по возрастанию. Найти сумму квадратных корней нечетных элементов матрицы, вывести полученные результаты.
Упражнение 5. Массив целых чисел из 14 элементов заполнить случайным образом. Упорядочить массив по возрастанию. Вывести на экран максимальный и минимальный элементы, найти их разность.
Упражнение 6. Массив целых чисел из 10 элементов заполнить случайным образом. Упорядочить массив по возрастанию. Подсчитать количество и произведение элементов массива, больших 20 и меньших 50, вывести полученный результат.
More Questions From This User See All
Answers & Comments
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.