Phần khai báo: var <tên mảng>:array[chỉ số đầu..chỉ số cuối] of <kiểu dữ liệu>;

VD: var A:array[1..100] of integer;

Câu lệnh dùng để nhập các phần tử của mảng

For i:=1 to n do

readln(<tên mảng>[chỉ số]);

VD: For i:=1 to n do

readln(A[i]):

Chương trình vd:(bạn tham khảo nha):

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

n,i:integer;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do

begin

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

readln(A[i]);

end;

readln

end.

uses crt;

var n,i:integer;

a:array[1..100] of integer;

begin

clrscr;

write(‘nhap so phan tu cua day:’);readln(n);

for i:=1 to n do

begin

write(‘a[‘,i,’]=’);readln(a[i]);

end;

writeln(‘day so da nhap:’);

for i:=1 to n do write(a[i]:2);

readln;

end.