Bài 1:

Const Fi='BT1.INP';
      Fo='BT1.OUT';
Var f,g: text;
    A: array[1..1000] of longint;
    n,i,da,dd: longint;
Begin
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,n);
        da:=0; dd:=0;
        For i:=1 to n do
        Begin
                Read(f,A[i]);
                If A[i]>0 then inc(dd)
                Else If A[i]<0 then inc(da);
        End;
        Writeln(g,'So cac so am: ',da);
        Write(g,'So cac so duong: ',dd);
        Close(f);
        Close(g);
End.

Bài 2:

Const Fi='BT.INP';
      Fo='BT.OUT';
Var f,g: text;
    A: array[1..1000] of longint;
    n,i,d: 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
        Assign(f,Fi); Reset(f);
        Assign(g,Fo); Rewrite(g);
        Read(f,n);
        da:=0; dd:=0;
        For i:=1 to n do
        Begin
                Read(f,A[i]);
                If ngto(A[i]) then inc(d);
        End;
        Write(g,d);
        Close(f);
        Close(g);
End.

Bài 1:

Const Fi='BT1.INP';
   Fo='BT1.OUT';
Var f,g: text;
  A: array[1..1000] of longint;
  n,i,da,dd: longint;
Begin
    Assign(f,Fi); Reset(f);
    Assign(g,Fo); Rewrite(g);
    Read(f,n);
    da:=0; dd:=0;
        For i:=1 to n do
        Begin
            Read(f,A[i]);
             If A[i]>0 then inc(dd)
            Else If A[i]<0 then inc(da);
        End;
     Writeln(g,'So cac so am: ',da);
    Write(g,'So cac so duong: ',dd);
     Close(f);
     Close(g);
    End.