Câu 1. Cho mảng A được khai báo như sau Var A: Array[0..5] of integer; Nếu nhập vào các giá trị {12; 9; 8; 6; 21; 25}cho mảng A. Hãy cho biết A[4]= A. 6 B. 21 C. 8 D. 12 Câu 2. Cho mảng A được khai báo như sau: Var A: Array[0..5] of integer; Đoạn chương trình nhập các số nguyên của mảng A được viết For i:=..... to ...... do Begin Write(‘phan tu thu ‘,i); Readln(A[i]); End; Hãy điền các số thích hợp vào dấu ... A. 0 và 5 B. 1 và 6 C. 12 và 25 D. 2 và 8   Câu 3: Cho mảng A được khai báo như sau: Var A:array[1..10] of integer; Biết rằng mảng A nhập vào gồm các số nguyên {12; 4; 19; 27; 6; 3; 23; 8; 9; 15}; Begin For i:=1 to 10 do If (i mod 2) = 0 then write(a[i]:4); End; Kết quả xuất ra màn hình của đoạn chương trình trên là: A. 12 19 6 23 9 B. 4 27 3 8 15 C. 12 4 6 8 D. 19 27 3 23 9 15 Câu 4: Cho mảng A được khai báo như sau: Var A:array[1..10] of integer; Biết rằng mảng A nhập vào gồm các số nguyên {12; 4; 19; 27; 6; 3; 23; 8; 9; 15} Begin For i:=1 to 10 do If (a[i] mod 2) = 0 then write(a[i]:4); End; Kết quả xuất ra màn hình của đoạn chương trình trên là: A. 12 19 6 23 9 B. 4 27 3 8 15 C. 12 4 6 8 D. 19 27 3 23 9 15   Câu 4a: Cho mảng A được khai báo như sau: Var A:array[1..10] of integer; t:integer; Biết rằng mảng A nhập vào gồm các số nguyên {12; 4; 19; 27; 6; 3; 23; 8; 9; 15} Begin T:=0; For i:=1 to 10 do If (a[i] mod 2) = 0 then t:=t+1; writeln(t); End; Kết quả xuất ra màn hình của đoạn chương trình trên là: A. 0 B. 4 C. 5 D. 1 Câu 5: Cho mảng A được khai báo như sau: Var A:array[1..5] of integer; T:integer; Biết rằng mảng A nhập vào gồm các số nguyên {12; 4; 19; 27; 6} Begin T:=0; For i:=1 to 5 do T:=T+a[i]; Writeln(T); End; Kết quả đưa ra màn hình là: A. 68 B. 15 B. 58 D. 0 Câu 6. Hãy cho biết kết quả đưa ra màn hình của đoạn chương trình sau. s :=1; for i:= 10 downto 3 do s:=s + 1; Write(s); A. 9 B.7 C.8 D. 6 Câu 7: Chương trình sau xuất ra màn hình giá trị bao nhiêu? Var y, x, i:byte; Begin x:=20; i:=1; y = 0; While i < x do Begin Y:=x+i; i:=i+10; End; Writeln(y:4); End. A. Y = 36 B. Y = 31 C. Y = 26 D. Y = 41 Câu 8: Trong NNLT pascal, cho đoạn chương trình sau: T:= 0; S:=0; While T>2 do Begin T:=T+1; S:=S+T; End; Writeln(S); Kết quả đưa ra màn hình là: A. 0 B. 1 C. 2 D. 3 Câu 9: Cho đoạn chương trình sau: If(a< >1) then x:=9 div a Else x:= -2013; Write(‘ x= ‘, x + 1); Khi cho a = 1 thì đoạn chương trình trên sẽ in ra màn hình giá trị x bằng bao nhiêu? A. x = -2012. B. x = -2013; C. x = 9; D. x = 10; Câu 10. Cho khai báo mảng sau: Var A:array[-2..3] of real; Mảng trên gồm có số phần tử là: A. 6 B. 5 C. -2 D. 3 Câu 11. Hãy chọn khai báo đúng trong các khai báo mảng sau: A. Var A: Array[1..-1] of real; B. Var A:Array[-3..2] of integer; C. Var A: array[1.2 ..3.2] of real; D. Var A:array[1...5] of integer; Câu 12. Cho mảng B được khai báo như sau: Var B:array[1..10] of integer; Để in các phần tử của mảng B ra màn hình ta sử dụng đoạn chương trình: A. For i:=1 to 10 do write(B[i]:6); B. For i:=1 to 10 do Readln(a[i]); C. Write(a[i]); D. Readln(a[i]); Câu 13. Cho chương trình sau: Var B:array[1..5] of integer; X:integer; Begin X:=B[1]; For i:=2 to 5 do If X<B[i] then X:=B[i]; Writeln(X); End. Nếu mảng B nhập vào gồm các giá trị {12; 7; 25; 8; 15} Kết quả xuất ra màn hình là: A. 12 B. 25 C. 7 D.15   Câu 14. Cho chương trình sau: Var B:array[1..5] of integer; X:integer; Begin X:=B[1]; For i:=2 to 5 do If X>B[i] then X:=B[i]; Writeln(X); End. Nếu mảng B nhập vào gồm các giá trị {12; 7; 25; 8; 15} Kết quả xuất ra màn hình là: A. 12 B. 25 C. 7 D.15 Câu 15. Cho khai báo mảng sau: Var A:array[-2..3] of real; Nếu nhập vào mảng A gồm các phần tử {23; 18; 9; 25; 17; 6} Ta có A[0]= A. 6 B. 9 C. 25 D. 23 Câu 16. Mảng B gồm 20 phần tử số thực. Khai báo nào sau đây là đúng: A. Var B:array[-10..9] of real; B. Var B: array[1..20] of integer; C. Var B: array[1..20] of byte D. Var B: array[1..20] of char;