*Các khai báo mảng 1 chiều.

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

- Khai báo biến kèm theo: 

+ Biến đếm: var i: integer;

+ Biến vòng lặp (nếu chưa cho biết lặp mấy lần): var <tên biến>: integer;

*Thao tác trên mảng 1 chiều.

- Chạy i từ 1 đến biến vòng lặp (hoặc đến số lần lặp cho biết trước) rồi sử dụng câu lệnh kép.

- Trong câu lệnh kép, sử dụng dạng write('<tên mảng>[', i, '] = '); readln(<tên mảng>[i]); hoặc tùy theo yêu cầu đề bài.

- Rồi thực hiện các bước còn lại theo yêu cầu đề bài.

*BT áp dụng <ví dụ minh họa>:

program phuongt;

uses crt;

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

        i, n, max: integer;

begin

           clrscr;

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

           for i:=1 to n do

           begin

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

           end;

           max:=A[1];

           for i:=1 to n do if max<A[i] then max:=A[i];

           write('Phan tu lon nhat cua day so nguyen la: ', max);

           readln

end.