Viết thuật toán của bài toán sau : nhập vào N phần tử nguyên . HÃY xác định thuật toán tính tổng các phần tử chẵn , tổng các phần tử lẻ

phần tử chẵn

b1: nhập n;

b2: for i:=1 to n do

       begin

         write (‘nhap m[‘,i,’]: ‘);  readln (m[i]);

         if m[i] mod 2=0 then s:=s+m[i];

       end;

b3: xuất kết quả

phần tử lẻ

b1: nhập n;

b2: for i:=1 to n do

       begin

         write (‘nhap m[‘,i,’]: ‘);  readln (m[i]);

         if m[i] mod 2<>0 then s:=s+m[i];

       end;

b3: xuất kết quả