Câu 1: Cú pháp câu lệnh lặp biết trước A. For < biến đếm> = < giá trị đầu> to < giá trị cuối> do B. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do C. For < biến đếm> : = < giá trị đầu> to < giá trị cuối> do; D. For < biến đếm> ; = < giá trị đầu> to < giá trị cuối> do Câu 2: Đoạn chương trình nào sau không bị lỗi A. For i:=1 to n do x=x+1; C. For i=1 to n do x:=x+1; B. For i:=1 to n do x:=x+1; D. For i:=1 to n do x:=x+1 Câu 3: Đoạn chương trình nào sau không bị lỗi A. For i:=10 to 1 do x:=x+1; C: for i:=1 to 10 do x:=x+1 B. For i:=10 to 1 do x:=x+1 D. For i:=1 to 10 do x = x+1; Câu 4: Câu lệnh ghép là câu lệnh đặt giữa từ khóa A. Begin .. end. B Begin end; C begin; end. D begin.. readln. Câu 5. Cú pháp câu lệnh lặp chưa biết trước A. While < điều kiện > do C. White < phép gán> do B. While < điều kiện> do ; D White < phép gán> do; Câu 6: Câu lệnh nào sau đây viết đúng A. While a< b do a:=a+1; C. White a<b do a:=a+1; B. While a<b do a=a+1; D. while a< b do ; a:=a+1 Câu 7: cho đoạn chương trình sau a=1; while a<=10 do begin write ( a); a:=a+1; end; Hãy cho biết kết quả của a bằng bao nhiêu? A. In ra từ 1 đến 9 C. In ra từ 1 đến 10 B. In ra 10 D. lặp vô hạn Câu 8: Cú pháp câu lệnh lệnh rẻ nhánh dạng thiếu nào đúng A. If <điều kiện> then câu lệnh; B. If <điều kiện> then Câu lệnh C.If <phép gán> then Câu lệnh; D. If <điều kiện> then; Câu lệnh; Câu 9. Cú pháp câu lệnh lệnh rẻ nhánh dạng đầy đủ nào đúng A. If <điều kiện> then B. If <điều kiện> then Câu lệnh Else Câu lệnh; Câu lệnh; Else Câu lệnh C.If <phép gán> then D. If <điều kiện> then; Câu lệnh Else Câu lệnh; Câu lệnh Else Câu lệnh; Câu 10: Cho đoạn chương trình sau If n mod 2 = 0 then n:=n+1; write(n); Với n =5 thì kết quả sau khi in ra màn hình bằng bao nhiêu.\ A.6 B.7 C.5 D.4 Câu 11: Cú pháp khai báo mảng A. Var tên mảng:=array[chỉ số đầu chỉ số cuối] of kiểu dữ liệu; B. Var tên mảng:=array[chỉ số đầu.. chỉ số cuối] of kiểu dữ liệu C. Var tên mảng:=aray[chỉ số đầu.. chỉ số cuối] of kiểu dữ liệu; D. Var tên mảng:=array[chỉ số đầu.. chỉ số cuối] of kiểu dữ liệu; Câu 12: Khai báo nào sau đây đúng A. Var a:array[110000] of longint; B. Var a:array[1..10000] of longint C. Var a:=array[1..10000] of longint D. Var a:=array[1..10000] of longint; Câu 24: Để nhập dữ liệu cho mảng ta thực hiện A. For i:=1 to n do begin readln(a[i]); B. For i=1 to n do begin readln(a[i]); C. For i:=1 to n do begin readln(ai); D. For i:=1 to n do begin readln(a[i]) Câu 13. Để thông báo tất cả các phần tử của mảng lên màn hình A. For i:=1 to n do write(a[i]) B. For i=1 to n do write(a[i]); C. For i:=1 to n do write(a[i]); D. For i:=1 to n do wrile(a[i]); Câu 14: Var tên mảng: array[chỉ số đầu.. chỉ số cuối] of kiểu dữ liệu; A. Chỉ số đầu và cuối là dữ liệu kiểu số thực B. Chỉ số đầu và cuối là dữ liệu kiểu sô nguyên C. Chỉ số đầu và cuối là dữ liệu kiểu số thực và số nguyên D. Chỉ số đầu và cuối là dữ liệu kiểu số nguyên hoặc kí tự