Написать программу для формирования массива размерности 15, составленного из минимальных...

Question

Написать программу для формирования массива размерности 15, составленного из минимальных элементов двух массивов размерности 15, заданных на диапазоне от 0 до 50.Помогите пожалуйста!

Answer 1

//PascalABC.Net 3.1 сборка 1200
const
    n = 15;

begin
    var a := ArrRandom(n, 0, 50);
    var b := ArrRandom(n, 0, 50);
    a.Println;
    b.Println;
    a := a.Concat(b).ToArray;
    a.Println;
    a.Sort;
    a := a.Slice(0, 1, n);
    a.Println;
end.