// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=ReadInteger('Введите число К:');
Writeln('Отобрано чисел: ',a.Where(t->Abs(t)>k).Count)
end.
Пример
n= 15
-45 -44 -50 -45 -36 -32 33 -19 -9 -5 35 -27 -8 -37 10
Введите число К: 30
Отобрано чисел: 9