Question

срочно программа на паскале

Answer 1

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

//1

begin

 var a :=ArrRandom(25, 0, 100);

 a.Println;

 Print('Число четных:', a.Count(p -> p.IsEven))

end.

//2

begin

 var a := ArrRandom(10, 10, 50);

 a.Println;

 Println('Число кратных 3:', a.Where(p -> p mod 3 = 0).Sum);

 Println('Произведение меньших 35:',

   a.Where(p -> p < 35).Aggregate(int64(1), (p, q) -> p * q))

end.