Để thực hiện nhập mảng thì ta làm như sau:

Ta sẽ dùng một vòng lặp để nhập lần lượt từng phần tử của mảng.
Hàm nhap() phải có kiểu trả về là void, tức là không trả về giá trị nào cả.
Cần truyền vào hai tham số đó là: tên mảng và số lượng phần tử của mảng.
Dưới đây là chương trình tham khảo cho cách nhập mảng trong c++

Để thực hiện nhập mảng thì ta làm như sau:

Ta sẽ dùng một vòng lặp để nhập lần lượt từng phần tử của mảng.
Hàm nhap() phải có kiểu trả về là void, tức là không trả về giá trị nào cả.
Cần truyền vào hai tham số đó là: tên mảng và số lượng phần tử của mảng.
Dưới đây là chương trình tham khảo cho cách nhập mảng trong c++

program TimPhanTuGiongNhau;
const
MAX = 100;
type
Mang = array[1..MAX] of integer;

procedure NhapMang(var mang: Mang; var n: integer);
var
i, j, phan_tu: integer;
da_co: boolean;
begin
write('Nhap so phan tu cua mang: ');
readln(n);

writeln('Nhap cac phan tu cua mang:');
for i := 1 to n do
begin
readln(phan_tu);
da_co := false;


for j := 1 to i - 1 do
begin
if mang[j] = phan_tu then
begin
da_co := true;
break;
end;
end;


if not da_co then
mang[i] := phan_tu
else
begin
writeln('Phan tu da ton tai trong mang. Nhap lai.');
i := i - 1;
end;
end;
end;

procedure TimPhanTuGiongNhau(mangA, mangB: Mang; nA, nB: integer);
var
i, j: integer;
begin
writeln('Cac phan tu giong nhau trong hai tap hop la:');
for i := 1 to nA do
begin
for j := 1 to nB do
begin
if (mangA[i] = mangB[j]) then
begin
writeln(mangA[i]);
break;
end;
end;
end;
end;

var
A, B: Mang;
nA, nB: integer;
begin

NhapMang(A, nA);

NhapMang(B, nB);

TimPhanTuGiongNhau(A, B, nA, nB);

readln;
end.