Question

из массива A длиной n, среди элементов которого есть положительные, отрицательные и равные нулю числа сформировать новый массив B, взяв в него только те числа из A, которые больше заданного числа X. Вывести на чистый экран число, данный и полученный массивы.

Очень срочно

Answer 1

===== PascalABC.NЕT =====

begin

 Console.Write('n = ');

 var n := Console.ReadLine.ToInteger;

 var A := ArrRandom(n, -50, 50);

 Console.Write('X = ');

 var X := Console.ReadLine.ToInteger;

 Console.Clear;

 Console.WriteLine(X.ToString);

 foreach var k in A do

   Console.Write(k.ToString + ' ');

 Console.Writeline;

 A.Where(p -> p > X)

     .ForEach(p -> begin Console.Write(p.ToString + ' ') end);

 Console.Writeline

end.