TRƯỜNG THPT HÀM THUẬN BẮC (Đề Chính Thức) Điểm: KIỂM TRA 15 PHÚT LẦN KHỐI 11 Năm học: 2016-2017 Môn: Tin Học Thời gian: 15 phút Lời phê Thầy( Cơ) giáo: Chữ kí giám thị: Họ tên: ………………………………………………….Lớp : ……… ĐỀ 1: Câu 1: (2đ) Viết cú pháp khai báo trực tiếp biến mảng chiều Lớp 11A có 35 học sinh Hãy khai báo biến mảng để lưu trữ cân nặng học sinh lớp Câu 2: (1,5đ) Cho đoạn CT sau: S:=2; For i :=1 to if B[i] mod =0 then S:=S*B[i]*2; Cho mảng B gồm phần tử sau: 10 18 21 Cho biết kết sau thực đoạn chương trình ? Câu 3: (1,5đ) Cho đoạn chương trình sau: For i:= to If ………………………………… then write(B[i], ‘ ’); Cho mảng B gồm giá trị sau: -2 14 15 -10 -24 44 Hãy điền vào dấu chấm để kết xuất hình là: -2 -10 -24 Câu 4: (5đ) Đoạn chương trình sau dùng để đếm sớ lượng các số nguyên chẳn mảng bị lỗi Program BT; Var A: array[1 N] of integer; N, i, Dem: byte; Begin For i := to 10 readln(A(i)); Dem := For i:=1 to 10 if i mod = then Dem := Dem +1; Write(‘gia tri cua Dem=’,Dem); a)Hãy tìm sữa lỡi cho Readln End b)Giả sử mảng A gồm giá trị sau: 10 11 144 20 Cho biết kết xuất hình? HẾT ... Readln End b)Giả sử mảng A gồm giá trị sau: 10 11 14 4 20 Cho biết kết xuất hình? HẾT ... mảng bị lỗi Program BT; Var A: array [1 N] of integer; N, i, Dem: byte; Begin For i := to 10 readln(A(i)); Dem := For i: =1 to 10 if i mod = then Dem := Dem +1; Write(‘gia tri cua Dem=’,Dem); a)Hãy