Массив из 15 элементов заполнить случайным образом а) 1 по 7 элементов убыванию б) 8ро 15...

Question

Массив из 15 элементов заполнить случайным образом а) 1 по 7 элементов убыванию б) 8ро 15 элементов возрастанию (вывести в строку)

Answer 1

// 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 6629 19 29 12 99 34 15 54
79 78 69 66 57 54 3912 15 19 29 29 34 54 99

Comments

Лаконично и понятно. Скопирую себе, если не возражаете.

---

Спасибо. С чего бы возражать?