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