Viết CT tạo mảng A có N(N<=100) phần tử là số nguyên. In ra màn hình mảng vừa tạo? Tính và đưa ra màn hình giá trị trung bình của các số nguyên âm lẻ ( số nguyên dương, chẵn) có trong mảng A

uses crt;
var i,n,dl,tl,dc,tc:longint; a:array[1..100]of longint;
begin
clrscr;
   write('Nhap n: (n<=100) ');readln(n);
   for i:=1 to n do 
      begin 
         write('a[',i,']= ');readln(a[i]); 
         if (a[i]<0)and(a[i] mod 2=-1) then begin inc(tl,a[i]); inc(dl); end;
         if (a[i]>0)and(a[i] mod 2=0) then begin inc(tc,a[i]); inc(dc); end;
      end;
   write('Mang vua tao: '); 
   for i:=1 to n do write(a[i],' '); writeln;
   if dl>0 then 
      writeln('Trung binh cac so nguyen am le: ',tl/dl:0:2)
   else
      writeln('Mang khong chua so am le');
   if dc>0 then
   writeln('Trung binh cac so nguyen duong chan: ',tc/dc:0:2)
   else
      writeln('Mang khong chua so duong chan');
readln
end.   

uses crt;
var n,i,res,result,count,cou:longint; a:array[1..100]of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            readln(a[i]);
            if (a[i]<0) and (a[i] mod 2=-1) then begin inc(res,a[i]); inc(count) end;
            if (a[i]>0) and (a[i] mod 2=0) then begin inc(result,a[i]); inc(cou) end;
        end;
    for i:=1 to n do write(a[i],' '); writeln;
    if (count>0) then
       writeln(res/count:0:2) else
                                 writeln('Khong co so nguyen am le');
    if (cou>0) then
       writeln(result/cou:0:2) else
                                 writeln('Khong co so nguyen duong chan');
readln;
end.