Nhập mảng:

write('Nhap so luong phan tu: ');readln(n);
   for i:=1 to n do 
      begin 
         write('Nhap phan tu thu ',i,': ');readln(a[i]);  
      end; 

write('Nhap so luong phan tu: ');readln(n);
   for i:=1 to n do read(a[i]);

Xuất mảng:

for i:=1 to n do 
      writeln('a[',i,']=',a[i]);

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

Xử lí mảng:

a[1]:='Tuongtaylor'; : Gán phần tử a[1] thành xâu 'Tuongtaylor'

inc(b[2]); : Tăng phần tử b[2] một đơn vị

dec(c[3]); : Giảm phần tử c[3] một đơn vị

Nhập mảng:

readln(n);
for i:=1 to n do readln(arr[i]);

Xuất mảng:

for i:=1 to n do write(arr[i],' ');

Xử lý mảng (mình cho bạn 3 ví dụ):

1) Tính tổng: for i:=1 to n do inc(sum,arr[i]);

2) Xuất ra màn hình số chẵn: 

for i:=1 to n do
      if arr[i] mod 2=0 then write(arr[i],' ');

3) Xuất ra màn hình các số lẻ:

for i:=1 to n do
      if arr[i] mod 2=1 then write(arr[i],' ');