(thường thì đề yêu cầu tìm ước chung lớn nhất của 2 tới 3 số, chứ cả 1 mảng thì mk chưa nghĩ ra được thuật toán, vậy nên tạm thời thì thế này, còn ý 3 thì mk xem rồi bổ sung sau)

uses crt;
var a: array [1..1000] of integer;
i,n: integer;
begin
clrscr;
write('nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('nhap so thu ',i,': '); readln(a[i]);
end;
write('cac so vua nhap la:');
for i:=1 to n do write(a[i]:4);
writeln;
write('cac so chia het cho 3 la: ');
for i:=1 to n do 
if a[i] mod 3 = 0 then write(a[i]:4);
readln;
end.

#include <iostream>
#include <algorithm>
using namespace std;
int main()
{
    int n;
    cout << "n = ";cin >> n;
    int a[n];
    for (int i=0; i<n; i++) {printf("a[%d] = ",i);cin >> a[i];}
    cout << "Cac phan tu cua mang: ";
    for (int i=0; i<n; i++) cout << a[i] << " ";
    int ucln = a[0];
    for (int i=1; i<n; i++) ucln = __gcd(ucln,a[i]);
    cout << endl << "Uoc chung lon nhat: " << ucln;
    cout << endl << "Cac so chia het cho 3: ";
    for (int i=0; i<n; i++) if (a[i]%3==0) cout << a[i] << " ";
}

$\\$

`@Daoanhviet96`