uses crt;var n,i,d,min:byte;

tong:integer;
a:array[1..20] of integer;
BEGIN
        clrscr;
        write('Nhap N:'); readln(n);

        {NHAP DAY SO}
        for i:=1 to n do
        begin
                write('Nhap a[',i,']');
                readln(a[i]);
        end;

        {TIM PHAN TU NHO NHAT}
        min:=a[1];
        for i:=2 to n do
                if a[i]<min then min:=a[i];

        {TINH TONG CAC SO DUONG}
        tong:=0;
        for i:=1 to n do
                if a[i]>0 then tong:=tong+a[i];

        {TINH SO LUONG SO AM TRONG DAY}
        d:=0;
        for i:=1 to n do
                if a[i]<0 then inc(d);

        {GHI KET QUA RA MAN HINH}
        writeln('a)Phan tu nho nhat trong day la:',min);
        writeln('b)Tong cac so duong la:',tong);
        writeln('c)Co ',d,' so am trong day.');
        writeln('d)Cac so nguyen duong trong day la:');
        for i:=1 to n do
                if a[i]>0 then write(a[i],' ');
        readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất nha.