Câu 1: Khai báo mảng nào sau đây đúng cú pháp?
A. Var a= array[1..100] of integer; B. Var a: array[1..100] of integer;
C. Var a: array[1... 100] of integer; D. Var a: array[1..100] of interger;
Câu 2: Cho đoạn chương trình như sau:
s:=0; i:=0;
while i<9 do
begin
i:=i+1;
s:=s+i;
end;
Sau khi thực hiện đoạn chương trình trên thì giá trị của i là:
A. 8 B. 7 C. 9 D. 10
Câu 3: Giá trị của biểu thức abs(sqrt(9)-sqr(3)) bằng:
A. 0 B. -6 C. 9 D. 6
Câu 4: Hãy chỉ ra câu lệnh đúng trong các câu lệnh sau:
Câu 5: Hãy chỉ ra câu lệnh đúng trong các câu lệnh sau:
A. if x<10 then y:=x; else x:=abs(x); B. if 0<x<10 then y:=10-x;
C. if x:=10 then y:=0 else y:=x; D. if x+y=10 then Z:=x*10+y else z:=x+y;
Câu 6: Cho câu lệnh sau: for i:=1 to 10 do a[i]:=i+5; Hỏi phần tử a[7] có giá trị bằng bao nhiêu?
A. 12 B. 7 C. 5 D. 36
Câu 7: Kết quả của phép toán NOT(3<=4) là:
A. 3<=4 B. False C. True D. 4>=3
Câu 8: Cho đoạn chương trình như sau:
s:=0; i:=0;
while i<9 do
begin
i:=i+1;
s:=s+i;
end;
Để tính được giá trị của s thì ta sử dụng câu lệnh For – Do nào sau đây:
A. s:=1; for i:=2 to 9 do s:=s+i; B. s:=0; for i:=1 to 8 do s:=s+i;
C. s:=1; for i:=1 to 8 do s:=s+i; D. s:=0; for i:=0 to 9 do s:=s+i;
Câu 9: Cho đoạn chương trình như sau:
s:=0;i:=2;
while i<=9 do
begin
s:=s+i;
i:=i+2;
end;
Sau khi thực hiện đoạn chương trình trên thì giá trị của i là:
A. 7 B. 9 C. 10 D. 8
Câu 10: Cho các biến x, y nguyên và biến z, m, n được xác định như sau x [0;250], y [-10; 20000], z:=0.5; m:=x*y; n:=2*z+y. Khai báo nào trong các khai báo sau đây là đúng nhất?
A. Var x:Byte; y:integer; n, m, z:longint; B. Var x:Byte; y:integer; m, n, z:real;
C. Var x:Byte; y:integer; z,n:real; m:longint; D. Var x, y, m, n:Integer; z:real;

Câu 11: Viết chương trình nhập vào số nguyên dương N (N<=250) và dãy gồm N số nguyên a1, a2, ..., aN. In ra màn hình các số chẵn và số lượng số chẵn
Ví dụ:
Input Output
n=7
2 1 -2 5 4 6 -7 2 -2 4 6
So luong: 4