Question

Помогите с Паскалем
Найдите количество элементов массива, у которых сумма цифр является чётным числом

Answer 1

var

 a:array of integer;

 i,n,count:integer;

function Ss(m:integer):boolean;

 var

   sum:integer;

 begin

   sum:=0;

   repeat

     sum:=sum+ m mod 10;

     m:=m div 10;

   until m=0;

   if sum mod 2 = 0 then

     Ss:=true  

       else Ss:=false;

 end;

 

begin

 write('Размерность массива: '); readln(n);

 setlength(a,n); dec(n);

 count:=0;

 for i:=0 to n do

   begin

     a[i]:=random(401)-200;

     if Ss(a[i]) then

       inc(count);      

     write(a[i]:5);

   end;

 writeln;

 writeln('Кол-во: ',count);

end.