Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,sc,sl,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        sc:=0; sl:=0; s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
                If A[i] mod 2 = 0 then sc:=sc+A[i]
                Else sl:=sl+A[i];
        End;

        Writeln('Tong chan la: ',sc,' va tong le la: ',sl);
        Write('Tong day so: ',s);
        Readln
End.

progran baitap6_chuong4;

uses crt;

var array[1..100] of integer;

if: boolean;

N, i„ l: integer;

so_nt, so_chan: integer;

begin

for i := -1000 to 1000 do if i>0 then NT:= false;

so_chan:=0; so_nt:=0;

{Nhap vao) repeat write('So phan tu cua day A (N<=100), N= *);

readln(N);

until (N>0) and (N<=100);

for i:= 1 to N do begin {kiem tra cac phan tu cua day khi nhap vao} repeat write('A[',i,']= ');

readln(A[i]);

if (a[i]>1000) or (a[i]<-1000) then write('Moi nhap lai ");

until (a[i]>-1000) and (a[i]<1000);

 if A[i] mod 2 =0 then so_chan:= so_chan + 1;

if A[i] >1 then begin u: = 2 ;

while ((u<=sqrt (A[i])) and (A[i] mod u<>0))) do u: = u + 1;

if u>sqrt(A[i]) then so_nt:= so_nt + 1;

 end;

{In ra man hinh} writeln('So luong so chan:',so_chan);

writeln('So luong so le:',N - so_chan);

writeln(’So luong so nguyen tro:', so_nt);

readln

End.

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