Написать программу для формирования массива размерности 15, составленного из минимальных элементов двух массивов размерности 15, заданных на диапазоне от 0 до 50.Помогите пожалуйста!
Написать программу для формирования массива размерности 15, составленного из минимальных элементов двух массивов размерности 15, заданных на диапазоне от 0 до 50.Помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гость//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.
Не нашли ответ?
Похожие вопросы