bài 1:

a) #include <bits/stdc++.h>

using namespace std;

int main()
{
    int n;
    cout<<"nhap n";
    cin>>n;
    int a[101];
    for(int i=1;i<=n;i++)
        cin>>a[i];
    for(int i=1;i<=n;i++)
        if(a[i]%2==1)
    cout<<" "<<a[i];
    return 0;
}

b)

#include <bits/stdc++.h>

using namespace std;

int main()
{

    int n,s(0);
    cout<<"nhap n";
    cin>>n;
    int a[101];
    for(int i=1;i<=n;i++)
        cin>>a[i];
    for(int i=1;i<=n;i++)
        if(a[i]%2==0)
    s+=a[i];
    cout<<s;
    return 0;
}

Bài 2: (mình chỉ giải được câu c thôi)

c)

#include <bits/stdc++.h>

using namespace std;

int main()
{
     int n;
    cout<<"nhap n";
    cin>>n;
    int a[101];
    for(int i=1;i<=n;i++)
        cin>>a[i];
    for(int i=1;i<=n;i++)
        if(a[i]<0)
    cout<<" "<<a[i];
    return 0;
}

BÀI 1:

Program bt;

Var a: array[1..1000] of integer;

       N,i,s: integer;

Begin

Writeln( ' nhap n:='); readln(n);

For i:=1 to n do

     Begin

            Writeln(' nhap a[',i,']:=');

            Readln(a[i]);

  End;

S:=0;

Write(' cac so ke cua mang lan luot la:'),

For i:=1 to n do

If a[i] MOD 2 =0 then write(a[i]:3) else s:=s+ a[i];

Writeln('tong chan :=',s);

Readln

End.

BÀI 2:

Program bt;

Var a: array[1..1000] of integer;

       N,i,s,k,d: integer;

Begin

Writeln( ' nhap n:='); readln(n);

For i:=1 to n do

     Begin

            Writeln(' nhap a[',i,']:=');

            Readln(a[i]);

  End;

Writeln(' nhap k:='); readln(k);

{Câu a}

D:=0;

For i:=1 to n do 

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

Writeln(' so phan tu co gia tri bang k la :',d);

{ câu b} 

Write('cac boi so cua k la:');

For i:=1 to n do

If a[i] mod k =0 then write(a[i]:3);

{ Câu c}

S:=0;

For i:=1 to n do

If a[i] <0 then s:=s+ a[i];

Writeln(' tong am:=',s);

Readln

End.

---------------------^-^-^-^-^-^^-^-----------------------

Nếu bạn thắc mắc câu lệnh nào thì hỏi nhé

1/

Program kiemtra;

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 chan:= chan+ 1 else le:= le+1;

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

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

Readln

end.

2/ 

Program kiemtra;

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.

Mình đã chạy chương trình rồi nhé -,- dưới ảnh ấy 

(2 ảnh đầu bài 1,2 ảnh sau bài 2)