Hãy viết chương trình nhập vào n phần tử, đếm xem có bao nhiêu số âm và bao nhiêu số dương trong n phần tử đó giúp mình nhé, vote cho 5*

program oken;
uses crt;
var a,i,n,dem,dem2:integer;
begin
        clrscr;
        write('Nhap so luong so can nhap: '); readln(n);
        dem:=0; dem2:=0;
        for i:=1 to n do
                begin
                        write('So ',i,': ');
                        readln(a);
                        if a>0 then
                                dem:=dem+1
                        else
                                if a<0 then
                                        dem2:=dem2+1;
                end;
        if dem<>0 then
                writeln('Co ',dem,' so nguyen duong trong day.')
        else
                writeln('Khong co so nguyen duong trong day.');
        if dem2<>0 then
                writeln('Co ',dem2,' so nguyen am trong day.')
        else
                writeln('Khong co so nguyen am trong day.');
        readln;
end.