Массив a(10),если 5 элементов одномерного массива положительные то вывести сообщение "условие выполняется" иначе "условие не выполняется".

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

begin

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

 a.Println;

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

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

 else

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

end.