CÂU HỎI TRẮC NGHIỆM
Câu 1: Chọn khai báo đúng :
a) Var A: array[1 10] of integer;
b) Var A= array[1 10] of integer;
c) Var A:= array[1 10] of integer;
d) Var A: array[1,10] of integer;
Câu 2: Cho khai báo:
Var
A: Array[1 4] of Real;
i : Integer ;
Ðể nhập dữ liệu cho A, chọn câu nào :
a) For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);
b) For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);
c) For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End;
d) Write(‘ Nhập A:’); Readln(A);
Câu 3: Cho khai báo biến :
Var A : array[1 5] of Integer;
Chọn lệnh đúng :
a) A[1] := 4/2 ;
b) A[2] := -6 ;
c) A(3) := 6 ;
d) A := 10 ;
Câu 4: Trong khai báo sau còn bỏ trống . . . một chỗ, vì chưa xác định
được kiểu dữ liệu của biến Max :
Var
A: Array[‘a’ ’d’] of Real ;
Ch : Char ;
Max : . . . ;
Muốn biến Max lưu gía trị lớn nhất của mảng A thì cần khai báo biến
Max kiểu gì vào chỗ . . . :
a) Char

For j:=1 to 3 do
begin
write(‘Nhập A[‘, i, j, ‘]:’);
readln(A[i, j]);
end;
d) For i:=1 to 2 do
For j:=1 to 3 do
write(‘Nhập A[‘, i, j, ‘]:’);
readln(A[i, j]);
Câu 8: Cho khai báo :
Var
A : array[1 2,1 3] of Real;
i, j : integer; Max : Real;
Ðể tìm số lớn nhất của ma trận A, chọn câu nào :
a) Max:=A[1,1];
If Max < A[i,j] then
Max:=A[i,j];

b) Max:=A[1,1];
For i:=1 to 2 do
if Max < A[i,j] then Max:=A[i,j];
c) A[1,1]:=Max ;
For i:=1 to 2 do
For j:=1 to 3 do
if Max< A[i,j] then
A[i,j]:=Max;
d) Max:=A[1,1];

b) Readln (S);
c)
d) S := S/N;