Câu 2: for i:=1 to 5 do readln(A[i]);
Câu 3: write(A[20]);
Câu 4: var B:array[1..30] of real;
Câu 5: for i:=1 to 12 do readln(B[i]);
Câu 6:
program nhap_in;
uses crt;
var A:array[1..20] of integer;
n,i:byte;
begin
clrscr;
write('Nhap so luong phan tu: '); readln(n);
for i:=1 to n do
begin
write('A[',i,']= '); readln(A[i]);
end;
write('Mang A la: ');
for i:=1 to n do write(A[i],' ');
readln;
end.