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

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

Ответы 1

  • // 4begin   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.// 5begin   var arr := ArrRandom(14);   Sort(arr);   WritelnFormat('Max = {0}, Min = {1}, Max - Min = {2}',                              arr.Max, arr.Min, (arr.Max - arr.Min));end.// 6begin   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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years