Lập chương trình Pascal nhập vào một mảng gồm N phần tử. In lên màn hình và ghi các ước chung của của N phần tử

Đây là đoạn code Pascal để nhập mảng gồm N phần tử, in mảng lên màn hình và tính các ước chung của các phần tử:

```pascal
program UocChungMang;
var
N, i, j, uoc: integer;
arr: array[1..100] of integer;
begin
write('Nhap so phan tu cua mang: ');
readln(N);

write('Nhap cac phan tu cua mang: ');
for i := 1 to N do
begin
read(arr[i]);
end;

writeln('Mang vua nhap la: ');
for i := 1 to N do
begin
write(arr[i], ' ');
end;

writeln;
writeln('Cac uoc chung cua cac phan tu trong mang la: ');
for i := 1 to N do
begin
uoc := arr[i];
for j := 1 to N do
begin
if (arr[j] mod uoc = 0) then
begin
write(uoc, ' ');
end;
end;
end;
end.
```

Bạn có thể thay đổi số phần tử của mảng bằng cách sửa giá trị của biến N trong đoạn code trên. Chúc bạn thành công!