Bài 1:

---

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        Write('Cac so le la: ');
        For i:=1 to n do
                If A[i] mod 2 = 1 then Write(A[i],' ');
        Writeln;

        s:=0;
        For i:=1 to n do
                If A[i] mod 2 = 0 then s:=s+A[i];

        Write('Tong cac so chan la: ',s);
        Readln
End.

---

Bài 2:

---

Program BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i,k,d: longint;
Begin
        Clrscr;
        Write('Nhap n, k: '); Readln(n, k);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        d:=0;
        For i:=1 to n do
                If A[i]=k then inc(d);
        Writeln('Co ',d,' phan tu co gia tri bang ',k);
        Write('Cac so la boi cua k: ');
        For i:=1 to n do
                If A[i] mod k = 0 then Write(A[i],' ');
        Writeln;
        Write('Cac so am: ');
        For i:=1 to n do
                If A[i]<0 then Write(A[i],' '); 

        Readln
End.

1/

Program hotboy;

Uses crt;

var a:array[1..100] of integer;

Chan,le,n,i:integer; 

begin

    Clrscr;

Chan:=0; le:=0;

     writeln('Nhap so phan tu cua mang:'); readln(n); 

     for i:=1 to n do 

        begin

            write('A[',i,']='); readln(A[i]);

        end; 

     for i:=1 to n do

        If a[i] mod 2 <>0 then le:= le+1;

If a[i] mod 2 =0 then chan:=chan+a[i];

Writeln(' tong  so chan la',chan);

Writeln(' co so so le la',le);

Readln

end.

2/ 

Program hotboy;

Uses crt;

var a:array[1..100] of integer;

Sob,k,n,i:integer; 

begin

    Clrscr;

Sob:=0;

     writeln('Nhap so phan tu cua mang:'); readln(n); 

     for i:=1 to n do

     begin

     writeln('a[',i,']');

     readln(a[i]); 

     end;

writeln('nhap so k',k); readln(k); 

     for i:=1 to n do 

Begin

        If a[i] =k then sob:= sob+1;

end; 

Writeln(' co so phan tu bang k la = ',sob);

for i:= 1 to n do

begin 

If a[i] mod k =0 then writeln(' so la boi so cua k la',a[i]);

end; 

for i:= 1 to n do

begin

IF a[i] <0 THEN writeln('cac so am la',a[i]);

end; 

Readln

end.