Nam Đỗ

program namdeptrai;
var A:array[1..100] of integer;
      i,n,S,demchan,demle:integer;
      tbcsochan:real;
begin    
writeln('nhap so co trong day');
readln(n);
for i:= 1 to n do
begin
write('so co trongday');
readln(A[i]);
end;
S:=0;
demchan:=1;
demle:=0;
writeln('tong cac so chan ');
for i:=1 to n do
  if  (A[i] mod 2 = 0) then 
begin
    demchan:=demchan+1;
    S:=S+A[i];
   end;
readln(S);
tbcsochan:=S/demchan;
writeln('trungbinhcongcacsochanla', tbcsochan:5:2);
demle:=0;
for i:=1 to n do
if (A[i] mod 2 <> 0) then
demle:=demle+1;
writeln('sophantuletu', demle);
readln;
end.
có đúng k ạ