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 )

#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 BTT;
Uses crt;
Var A: array[1..10000] of longint;
    n,i: 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;
        Write('Cac so chan la: ');
        For i:=1 to n do
                If A[i] mod 2 = 0 then Write(A[i],' ');
        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.