===== PascalABC.NET =====
begin
var a := ArrRandom(10, -99, 99);
a.Println;
if a.Count(p -> p > 0) = 5 then
Println('Условие выполняется')
else
Println('Условие не выполняется')
end.
