// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(100,-50,50); a.Println;
  Writeln('Чисел, больших 10: ',a.Where(t->t>10).Count)
end.

Пример
-25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10
Чисел, больших 10: 35

Program n1;
const n=100;
var a: array[1..n] of integer;
k,i: integer;
begin
write('массив: ');
k:=0;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i],' ');
if a[i]>10 then k:=k+1;
end;
writeln;
write('количество элементов больше 10: ',k);
end.