Question

Помогите пожалуйста по информатике, Pascal

Answer 1

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

begin

 var b := ReadInteger('b =');

 var a := ReadArrInteger('Введи массив:', 10);

 a.Where(p -> p > b).Sum.Println

end.

---------------------------------------

begin

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

 a.Println;

 Println('Количество нечентых:', a.Count(p -> p.IsOdd));

 Println('Min =', a.Min)

end.