Program Mang_Tong_Chan;

uses crt;

var i,n:byte;

    M:array[1..100] of integer;

    tong:longint;

begin

    write('Nhap so phan tu cua day: ');readln(n);

    for i:=1 to n do

    begin

         write('M[',i,']'); readln(M[i]);

    end;

    tong:=0;

    for i:=1 to n do if M[i] mod 2 =0 then     

    tong:=tong+M[i];

    write('Tong cac so chan trong day la: ',tong);

    readln

end.

 Bạn doantranghmy làm thiếu 

program Tin_hoc;

uses crt;

var i,n,tong:integer;

      a:array [1..200] of integer;

begin

clrscr;

write('Nhap n <= 200: ');readln(n);

while n > 200 do

begin

write('Nhap lai: ');readln(n)

end;

writeln('Nhap ',n,' so nguyen:');

tong:=0;

for i:= 1 to n do 

begin

readln(a[i]);

if a[i] mod 2 = 0 then tong:=tong+a[i]

end;

writeln('Tong cac so chan co trong mang la: ',tong);

readln;

end.