===== PascalABC.NET =====

begin

 var a := ArrRandom(10, -99, 99);

 a.Println;

 if a.Count(p -> p > 0) = 5 then

   Println('Условие выполняется')

 else

   Println('Условие не выполняется')

end.