1.D

Cú pháp khai báo: Var <biến mảng>: array[<Chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

Trong đó: Chỉ số đầu < chỉ số cuối

Kiểu dữ liệu số thực: Real

2.

a) var dayso: array[1..50] of integer;

b) readln(diem[2]);

3.

uses crt;

var i,s: integer;

begin

clrscr;

s:=1;

for i:=1 to 10 do s:=s*i;

writeln ('Tich la: ',s);

readln;

end.

Câu 1:

Đáp án: D: var A:array[1..20] of real;

→Cấu trúc: <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

→Trong đó: chỉ số đầu,chỉ số cuối có kiểu dữ liệu là số nguyên, chỉ số đầu nhỏ hơn hoặc bằng chỉ số cuối.

→Câu A,B:sai

→Kiểu dữ liệu số thực là: real →C sai.

Câu 2:

a) Var dayso:array[1..50] of integer;

→Cấu trúc: Var <tên biến mảng>:array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu dữ liệu>;

b) readln(diem[2]);

→Nhập giá trị của phần tử trong biến mảng: readln(<tên biến mảng>[<chỉ số>]);

Câu 3:

uses crt;

var t,i:integer;

begin

clrscr;

t:=1;

for i:=1 to 10 do

t:=t*i;

write('Tich cac so tu nhien tu 1 den 10: ',t);

readln

end.