Viết chương trình nhập mảng A gồm n phần tử nguyên. Hãy liệt kê các số chẵn (lẻ/chia hết cho 3/số nguyên tố) ra màn hình? Giúp mình với đang gấp ạ

In so chan:

#include<bits/stdc++.h>

using namespace std;

int
main ()
{

   long long n, a[10001];

   cin >> n;

  for (int i = 1; i <= n; i++)

     cin >> a[i];

  for (int i = 1; i <= n; i++)

     if (a[i] % 2 == 0)

       cout << a[i] << " ";
}

In so le:

#include<bits/stdc++.h>

using namespace std;

int
main ()

{

  long long n, a[10001];

   cin >> n;

  for (int i = 1; I <= n; i++)

     cin >> a[i];

for (int i = 1; I <= n; I++)

    if (a[i] % 2 != 0)
       cout << a[i];

}

so chia het cho 3:

#include<bits/stdc++.h>

using namespace std;

int
main ()
{

   long long n, a[10001];

   cin >> n;

  for (int i = 1; I <= n; i++)

     cin >> a[i];

for (int i = 1; I <= n; I++)

    if (a[i] % 3== 0)
       cout << a[i];

}

program Mang;

uses crt;

var A:array [1..500] of integer;

      n,i,d,j: integer;

Begin

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

         for i:=1 to n do

         begin

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

         end;

         write('Cac so chan: ');

         for i:=1 to n do

         if A[i] mod 2=0 then write(A[i],'  ');

         writeln;

         write('Cac so le: ');

         for i:=1 to n do

         if A[i] mod 2<>0 then write(A[i],'  ');

         writeln;

         write('Cac so chia het cho 3: ');

         for i:=1 to n do

         if A[i] mod 3=0 then write(A[i],'  ');

         writeln;

         write('Cac so nguyen to: ');

         for i:=1 to n do

         begin

                 d:=0;

                 for j:=1 to A[i] do

                 if A[i] mod j=0 then d:=d+1;

                 if d=2 then write(A[i],'  ');

         end;

         readln

End.