Cho mảng nguyên 1 chiều gồm n phần tử ( n<250) nhập từ bàn phím. a, Viết chương trình tính tổng các phần tử chẵn trong mảng b, viết chương trình tính

program tinh_tong_chanle;

Uses crt;

var M:array[1..250] of integer;

      n,i:byte;

      a,b:integer;

begin

       clrscr;

       write(‘Nhap n: ‘);  readln(n);

       a:=0;  b:=0;

       for i:=1 to n do

              begin

                     write(‘Nhap so thu ‘,i,’: ‘);  readln(M[i]);

                     if M[i] mod 2=0 then a:=a+M[i] else b:=b+M[i];

              end;

       writeln(‘a. Tong cac phan tu chan la: ‘,a);

       writeln(‘b Tong cac phan tu le la: ‘,b);

       readln;

end.