PHIẾU HỌC TẬP SỐ Họ Và Tên: Điểm Số: * Hình thức chấm điểm: Mỗi đáp án điểm ( tương đương với 10 câu hỏi ) * T/gian làm bài: 10 phút (tính thời gian phát đề)  Khoanh tròn đáp án vào câu bên dưới: Câu 1: Phát biểu sau mảng chiều đúng? A Là tập hợp hữu hạn phần tử có kiểu liệu B Chỉ tập hợp số nguyên C Mảng khơng chứa kí tự chữ D Là tập hợp vơ hạn phần tử có kiểu liệu Câu 2: Phát biểu sau số mảng phù hợp nhất? A.Dùng để truy cập đến phần tử mảng B.Dùng để quản lí kích thước mảng; C Dùng vòng lặp với mảng; D.Dùng vòng lặp với mảng để quản lí kích thước mảng; Câu 3: Cách tham chiếu đến phần tử mảng chiều A Tên biến mảng, số viết cặp ngoặc [ ] B Tên biến mảng, số viết cặp ngoặc ( ) C Tên kiểu mảng, số viết cặp ngoặc [ ] D Tên kiểu mảng, số viết cặp ngoặc ( ) Câu 4: Var m : array[0 10] of integer ; Phương án phần tử thứ 10 mảng? A a[10]; B a[9]; C a(10); D a(9); Câu 5: Phương án khai báo mảng hợp lệ? A mang : ARRAY[0 10] OF INTEGER; B mang : ARRAY[0 10] : INTEGER; C mang : INTEGER OF ARRAY[0 10]; D mang : ARRAY(0 10) : INTEGER; Câu 6: Cách tham chiếu đến phần tử thứ i mảng D là: A D[',i,’]; B D[‘i’]; C D[i]; D D(i); Câu 7: Cho khai báo mảng đoạn chương trình sau : Var a : array[0 50] of real ; k := ; for i := to 50 if a[i] > a[k] then k := i; writeln( ‘ In kết :’ , k); Đoạn chương trình thực cơng việc ? A Tìm giá trị phần tử nhỏ mảng; B Tìm giá trị phần tử lớn mảng; C Tìm số phần tử lớn mảng; D Tìm số phần tử nhỏ mảng; Câu 8: Hàm RANDOM(n) trả giá trị là… A …một số nguyên dương ngẫu nhiên nằm đoạn đến n-1 B …một số nguyên dương ngẫu nhiên nằm đoạn trừ đến n C …một số ngẫu nhiên nằm đoạn đến n-1 D …một số nguyên dương ngẫu nhiên nằm đoạn đến n-1 Câu 9: Cho câu lệnh: For i:=1 To 100 Do A[i]:= Random(50) – Random(50); Hãy cho biết giá trị mảng A câu lệnh nhận giá trị nguyên đoạn nào? A Từ -49 đến 49 C Từ -49 đến 50 B.Từ -50 đến 50 D.Từ -50 đến 49 Câu 10: Để in giá trị phần tử thứ 20 mảng chiều A hình ta viết: A.Write(A[20]); C.Readln(A[20]); B.Write(A(20)); D.Write([20]); {1} {2) {3} {4} {5} {6} {7} {9} {10} {12} {13} {14} {15} {16} {17} {18} {19} {20} {21} {22} {23} {24} {25} {26} {27} {28} program btMang; uses crt; var A:array[1 250] of integer; n,i,Max,csMax:integer; BEGIN clrscr; write('Nhap so luong phan tu cua mang, n= '); readln(n); for i:=1 to n begin write('Nhap phan tu thu ',i,'='); readln(A[i]); end; max:=A[1]; csMax:=1; for i:=2 to n if A[i]>max then begin max:=A[i]; csMax:=i; end; writeln('Gia tri lon nhat mang A la: ',max); writeln('Chi so phan tu lon nhat:',csmax); readln END