Bai 1 : Viết chương trình đọc vào n số nguyên . Đếm xem có bao nhiêu số nguyên dương, bao nhiêu số nguyên âm Dữ liệu vào file: bt1.inp - Dòng 1: chứa số n - Dòng 2 chứa n số cách nhau ít nhất 1 khoảng trắng Dữ liệu ra file: bt1.out - Dòng 1: So cac so duong: … - Dòng 1: So cac so am : … Vi du : INPUT 3 3 -2 4 OUTPUT So cac so am: 1 So cac so duong: 2 Bai2: Viết chương trình đọc vào n số nguyên (n < 1000). Đếm xem có bao nhiêu số nguyên tố? ( Su dung ham de kiem tra); Xuat ra file. VD : INPUT 3 3 2 4 OUTPUT 2

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.