Решить: в массиве, состоящем из n элементов, определить количество элементов, значение которых больше 17

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  Print('Элементов, больших 17:',
      ArrRandom(ReadInteger('n='),1,50).Println
      .Where(x->x>17).Count)
end.

Тестовое решение:
n= 13
20 40 13 26 31 50 42 27 49 14 50 7 27
Элементов, больших 17: 10