uses crt;
var A: array[1..100] of integer;
    t,s,n,i: integer;
begin
    clrscr;
    write('Nhap n ='); readln(n);
    for i:= 1 to n do
    begin
         write('A[',i,']='); readln(A[i]);
    end;
    for i:=1 to n do
    begin
       if A[i] mod 2=0 then s:=s+A[i];
       if A[i] mod 2=1 then t:=t+A[i];
    end;
    writeln('Tong cac so chan trong mang la: ',s);
    writeln('Tong cac so le trong mang la: ',t);
    readln;
end.

Uses crt;
Var a: array[1..1000] of integer;
    tsl,tsc,n,i: integer;
Begin
    Clrscr;
    Write('Nhap n vao: '); Readln(n);
    For i:= 1 to n do
    Begin
    Write('Nhap a[',i,']= '); Readln(a[i]);
    End;
    For i:=1 to n do
    Begin
       if a[i] mod 2<>0 then tsl:=tsl+ a[i] else tsc:=tsc+ a[i];
    End;
    Writeln;
    Writeln('Tong cac so chan trong day la: ',tsc);
    Writeln('Tong cac so le trong day la: ',tsl);
    Readln;
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình nhé!Đa tạ :333
*p/s: Thắc mắc,comment bên dưới!