nhập vào 1 bảng b gồm m phần tử.sau đó tính tổng các số chẵn của mảng và hiển thị ra màn hình

program ct;

uses crt;
var b:array[1..1000] of integer;
      m,i,S:integer;
begin clrscr;
   write('Nhap so phan tu: '); readln(m);
     for i:=1 to m do
       begin
          write('Nhap phan tu thu ',i,': '); readln(b[i]);
          if b[i] mod 2=0 then S:=S+b[i];
       end;
   write('Tong cac so chan cua mang la: ',S);
readln;
end.

Học tốt!

uses crt;
var b:array[1..1000] of integer;
    m,i,S:integer;
begin
   clrscr;
   write('Nhap so luong phan tu: '); readln(m);
   for i:=1 to m do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(b[i]);
      if b[i] mod 2 = 0 then S:=S+b[i];
   end;
   write('Tong cac so chan la: ',S);
   readln
end.