Объяснение:
PascalABC.NET
begin
var arr := ArrRandom(100, -99, 99).ToList; //Random array
var j := ReadInteger();
if arr.Find(x -> x = j) <> 0 then Println('Finded!')
else
arr.Where(x -> x >= j).Count.Println;
arr.Where(x-> x < 0).Count.Println;
end.
P.S не понятно, что должна выводить программа, если нашла это самое число J, по этому просто пишет "Finded!"
