Mình viết code C++ nhé:

Bài 1:

#include <iostream>
using namespace std;
int main()
{
    //Tạo ra một mảng gồm 5 phần tử nguyên:
    int a[5] = {1, 2, 3, 4, 5};
    //In tất cả các giá trị ra màn hình
    for (int i = 0; i<5; ++i) cout << a[i] << " ";
    //Xuống dòng
    cout << endl;
    //Tính tổng các số chia hết cho 2 mà không chia hết cho 4.
    int tong = 0;   

    for (int i = 0; i<5; ++i)
    {
       //Nếu số a[i] thỏa mãn thì cộng vào tổng:
       if ((a[i] % 2 == 0)&&(a[i] % 4 != 0)) tong += a[i];
    }
    //Xuất tổng ra màn hình:
    cout << tong;
    //Kết thúc:
    return 0;
}

Bài 2:

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

    //Tạo ra một mảng gồm 5 phần tử là các số thực:
    double a[5] = {-1.0, 2.25, 3.75, 4.0, 5.2};
    //In tất cả các giá trị ra màn hình
    for (int i = 0; i<5; ++i) cout << a[i] << " ";
    //Xuống dòng
    cout << endl;
    //Tính tổng các số chia hết cho 2 mà không chia hết cho 4.
    int tong = 0;   

    for (int i = 0; i<5; ++i)
    {
       //Nếu phần nguyên của số a[i] chính là a[i] (a[i] là số nguyên)

       //thì cộng vào tổng:
       if (floor(a[i])==a[i]) tong += a[i];
    }
    //Xuất tổng ra màn hình:
    cout << tong;
    //Kết thúc:
    return 0;

}

bai 1:

var    a:array[1..100] of integer;
        n,i,s:integer;
begin
        write('Nhap n:');
        read(n);
        for i:=1 to n do
        begin
                write('a[',i,']=');
                read(a[i]);
        end;
        for i:=1 to n do
        write(a[i],' ');
        writeln;
        for i:=1 to n do
        if (a[i] mod 2=0) and (a[i] mod 4<>0) then s:=s+a[i];
        write(s);
        readln;
end.

bai 2:

var    a:array[1..100] of integer;
        n,i,s:integer;
begin
        write('Nhap n:');
        read(n);
        for i:=1 to n do
        begin
                write('a[',i,']=');
                read(a[i]);
        end;
        for i:=1 to n do
        s:=s+a[i];
end.