Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив по...

Question

Массив целых чисел из 15 элементов. Заполнить случайным образом. Упорядочить массив по убыванию. Подсчитать количество элементов больше 10, вывести результат.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var a:=ArrRandom(15,-30,30); a.Println;
  a:=a.Sorted.ToArray; a.Println;
  Writeln('Элементов, больших 10- ',a.Where(x->x>10).Count)
end.

Тестовое решение
17 15 -26 -26 -9 8 -16 -7 -8 -3 23 12 10 29 -13
-26 -26 -16 -13 -9 -8 -7 -3 8 10 12 15 17 23 29
Элементов, больших 10- 5