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;