// PascalABC.NET 3.3
begin
var n:=ReadlnInteger('n =');
var m:=ArrRandom(n,10,90);
m.Println;
var a:=ReadlnInteger('a =');
Writeln('Выбранные элементы:');
m.Where(x->x>a).Println;
end.
Пример:
n = 10
49 54 88 46 27 68 70 23 69 61
a = 50
Выбранные элементы:
54 88 68 70 69 61