a)

Var a : array[1..100] of Integer ;

 n , i : integer ;

⇒ Do chỉ số đầu và chỉ số cuối phải xác định nên ta chỉ ước chừng số lượng phần tử. Ta dùng biến n để nhận số lượng mảng, khai báo biến i để tạo vòng lặp để nhập tất cả các phần tử với độ dài n

b) 

Var a : array[1..100] of Integer ;

 N, x , i , d , s : longint ;

⇒ Ta dùng biến n để xác định độ dài mảng, dùng biến i để chạy vòng lặp nhập giá trị cho từng phần tử, dùng biến x để so sánh với các phần tử : nếu phần tử thứ a[i] > x thì xuất phần tử đó, dùng biến d để đếm các phần tử lớn hơn x, biến s để tính tổng các phần tử lớn hơn x

lệnh khai báo biến mảng:

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