Question

Помогите решить задачу в Pascal

Answer 1

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

function СуммаЦифрЧетная(n: integer): boolean;

begin

 var s := 0;

 while n > 0 do

 begin  

   s := s + n mod 10;

   n := n div 10;

 end;

 Result := s.IsEven

end;

begin

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

 var a:= ArrRandom(n, 0, 300);

 a.Println;

 a := a.Where(p -> СуммаЦифрЧетная(p)).ToArray;

 a.Println

end.