Question

СРОЧНО! ДАЮ 20 Баллов:

Написать программу, которая:заполнит массив из 10 элементов случайными целыми числами (от 1 до 100),выведет эти числа на экран,все элементы массива, которые более чем вдвое меньше максимального заменит значением минимального элемента,выведет на экран все элементы обновлённого массива.Например, если массив будет заполнен числами:5, 10, 1, 50, 30, 15, 45, 35, 27, 31то обновлённый массив будет следующим:1, 1, 1, 50, 30, 1, 45, 35, 27, 31т.к. все значения более чем вдвое меньше максимального (50 / 2 = 25, то есть меньше 25) заменились минимальным (1)

ПОМОГИТЕ УМОЛЯЮ!

Answer 1

PascalABC.NET:

• ##
• var a := ArrRandom(10, 1, 100);
• var (min, max) := (a.Min, a.Max);
• a.Println;
• a.Transform(x → max/x >= 2 ? min : x);
• a.Print