uses crt;
var a:array[1..1000]of longint;n,i,t:longint;
begin
 clrscr;
  write('n=');readln(n);
  t:=0;
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
         if(a[i]mod 2=0)then t:=t+a[i];
        end;
  writeln('tong cac chu so chan trong day so tren la:',t);
 readln;
end.

cho mình xin hay nhất ạ

program ct;

uses crt;

var A:array[1..1000] of integer;

      n,i:integer;

      S:longint;

begin clrscr;

   writeln('Nhap so n: '); readln(n);

   for i:=1 to n do

     begin
        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

        if A[i] mod 2=0 then S:=S+A[i];
     end;

   for i:=1 to n do if A[i] mod 2=0 then write(A[i]:3);
   writeln('Tong cac so chan la: ',S);
readln;

end.

$\text{Xin Ctlhn Cho Nhóm Ạ!}$

$\text{Chúc Bạn Học Tốt!❤}$

$\text{#Hoidap247}$