Массив из 15 элементов заполнить случайным образом а) 1 по 7 элементов убыванию б) 8ро 15 элементов возрастанию (вывести в строку)
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var a:=ArrRandom(15,10,99); a.Println;
var b:=a.SplitAt(7);
a:=b.Item1.SortedDescending.Concat(b.Item2.Sorted).ToArray;
a.Println
end.
Тестовое решение:
39 69 78 79 54 57 66 29 19 29 12 99 34 15 54
79 78 69 66 57 54 39 12 15 19 29 29 34 54 99
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
