a)
Trực tiếp:
var <tên biến mảng>: array [kiểu chỉ số] of <kiểu phần tử>;
Gián tiếp:
type <tên kiểu mảng>=array [kiểu chỉ số] of <kiểu phần tử>;
var <tên biến mảng>:<tên kiểu mảng>;
b)
uses crt;
var Nam:array[1..15] of real;
Nu:array[1..16] of real;
i:byte;
begin
clrscr;
for i:=1 to 15 do
begin
write('Nhap diem cua ban nam thu ',i,': ');
readln(Nam[i]);
end;
for i:=1 to 16 do
begin
write('Nhap diem cua ban nu thu ',i,': ');
readln(Nu[i]);
end;
readln
end.