// PascalABC.NET 3.3, сборка 1541 от 29.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
a:=a.Where(x->x>=0).ToArray; a.Println;
end.
Пример
n= 15
67 93 9 -89 95 -85 -39 74 48 -94 -14 -88 74 42 27
67 93 9 95 74 48 74 42 27