Program Tinh_tong;
Uses crt;
Var i,n,dem: integer;
      a:array[1..100] of integer;
      S:real;
begin
  write('nhap n='); readln(n);<br /> 

for i:=1 to n do<br />     

begin<br />       

write('a[',i,']='); readln(a[i]);
       end;
  dem:=0;
  for i:=1 to n do 
  if a[i] mod 2 = 0 then dem:=dem+1; S:=S+a[i];
 write('so phan tu chan cua day la:');
 write(' tong cac so chan la:', S:8:2);
readln
end.

bài nha bạn

uses crt;
var a:array[1..1000]of longint; i:longint;
begin
 clrscr;
  for i:=1 to 100 do readln(a[i]);
  for i:=1 to 100 do if(a[i] mod 2=0)then write(a[i],' ');
 readln;
end.