Bài 1:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,da,dd: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        da:=0; dd:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]>0 then inc(dd);
                If A[i]<0 then inc(da);
        End;
        Write('Co ',dd,' so duong va ',da,' so am');
        Readln
End.
Bài 2:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,max,min,vmin,vmax: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        min:=maxlongint;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i]<min then
                Begin
                        min:=A[i];
                        vmin:=i;
                End;
        End;
        max:=A[1];
        For i:=2 to n do
                If A[i]>max then
                Begin
                        max:=A[i];
                        vmax:=i;
                End;
        Writeln('Max: A[',vmax,'] = ',max);
        Write('Min: A[',min,'] = ',min);
        Readln
End.
Bài 3:
Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod i = 0 then exit(false);
                                    exit(true);
End;

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
                If ngto(A[i]) then Write(A[i],' ');
        Readln
End.