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

    Упражнение 9. Массив целых чисел из 15 элементов заполнить случайным образом. Упорядочить массив по убыванию. Подсчитать сумму квадратов элементов массива и вывести полученный результат.

Ответы 1

  • // 7begin    var arr := ArrRandom(13);    arr :=  arr.OrderByDescending(x->x).ToArray;    arr.Println;    Print('Sum = ', arr.Where(x->x>10).Sum() + newline +             'Count = ',arr.Where(x->x>10).Count);end.// 8begin   var arr := ArrRandom(10);   Sort(arr);   arr.Println;   Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +           'Count = ', arr.Where(x -> x mod 5 = 0).Count);end.// 9begin   var arr := ArrRandom(15);   arr := arr.OrderByDescending(x -> x).ToArray;   arr.Println;   Print('array elements squares sum is = ', arr.Sum(x -> x * x));end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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