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.

xin 5* + câu trả lời hay nhất

program chan_le;

uses crt;

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

      n,i: integer

Begin

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

         for i:=1 to n do

         begin

                  write('A[',i,']='); readln(A[i]);

         end;

         write('Cac so le: ');

         for i:=1 to n do

         if A[i] mod 2<>0 then write(A[i],'  ');

         writeln;

         write('Cac so chan: ');

         for i:=1 to n do

         if A[i] mod 2=0 then write(A[i],'  ');

         readln

End.