Hä vµ tªn häc sinh: §Ò kiÓm tra häc kú II(45 phót) Líp: ®Ò 1 PhÇn I Tr¾c nghiÖm Khoanh tròn chữ cái đứng trước kết quả đúng(3 §) Câu 1. Để nhập một giá trị vào phần tử a[3] của mảng a thì ta viết là: a. Readln(a) b. Readln(a[3]) c. Readln(a[i]) d. Readln(a(3)) C©u 2: Cấu trúc của vòng lặp For do … dạng tiến là A) For <biến đếm>:= < giá trị đầu> to <giá trị cuối> do <câu lệnh>; B) For <biến đếm>:= < giá trị cuối> to <giá trị đầu> do <câu lệnh>; C) For <biến đếm>:= < giá trị cuối> downto <giá trị đầu> do <câu lệnh>; D) For <biến đếm>:= < giá trị đầu> downto <giá trị cuối> do <câu lệnh>; C©u 3: Cấu trúc của vòng lặp while - do có dạng: A. While <điều kiện> do <câu lệnh>; B. While <câu lệnh> do <điều kiện>; C. While <điều kiện> do <câu lệnh> D. While <câu lệnh 1> do <câu lệnh 2>; C©u 4: Vòng lặp while - do là vòng lặp A) Biết trước số lần lặp B) Chưa biết trước số lần lặp C) Biết trước số lần lặp nhưng giới hạn là <=100 D) Biết trước số lần lặp nhưng giới hạn là >=100 Câu 5 . Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai báo như sau: a. a:Array [1 11] of integer; b. a:Array [5 15] of integer; c. a:Array [5 15] of integer; d. a:Array [11] of integer; Câu 6. Xuất dữ liệu từ mảng a có 11 phần tử từ 5 đến 15 thì ta viết lệnh như sau: a. Writeln(a); b. Writeln (a[11]); c. For i: =5 to 15 do Writeln (a[i]); d. Writeln (a[i]); phÇn 2 tù luËn (7 ®) Câu 7: a) Cho S và i là biến nguyên. Khi chạy đoạn chương trình : s:=0; for i:=1 to 8 do s := s+2*i; writeln(s); Kết quả in lên màn hình là bao nhiªu ? b) Cho S và i là biến nguyên. Khi chạy đoạn chương trình : s:=0; for i:=1 to 5 do s := s+i; writeln(s); Kết quả in lên màn hình là bao nhiªu ? Câu 8: Sử dụng biến mảng viết chơng trình nhập dãy số N số nguyên từ bàn phím sau đó in ra màn hình giá trị Min và trung bình cộng của dãy số đó. §¸p ¸n: I: PhÇn tr¾c nghiÖm C©u 1 3 4 5 7 8 §¸p ¸n B A A B C C PhÇn 2: Tù luËn: C©u 7(2 ®iÓm) a) 72 d) 15 C©u 8: ( 5 ®iÓm) program trungbinh; uses crt; Var i, n,s Min: integer; A: array[1 100] of integer; Begin clrscr; write('Hay nhap do dai cua day so, N = '); readln(n); writeln('Nhap cac phan tu cua day so:'); For i:=1 to n do Begin write('a[',i,']='); readln(a[i]); End; Min:=a[1]; s:=0; for i:=2 to n do begin if Min>a[i] then Min:=a[i] S:=S+a[i]; end; writeln(' So nho nhat la Min = ',Min); writeln( Tong cua day so la : ,s/n);‘ ’ readln; End. . Hä vµ tªn häc sinh: §Ò kiÓm tra häc kú II( 45 phót) Líp: ®Ò 1 PhÇn I Tr¾c nghiÖm Khoanh tròn chữ cái đứng trước kết quả đúng(3 §) Câu 1. Để nhập một giá trị. D) Biết trước số lần lặp nhưng giới hạn là >=100 Câu 5 . Khai báo mảng a có 11 phần tử từ 5 đến 15 là các số nguyên thì ta khai báo như sau: a. a:Array [1 11] of integer; b. a:Array [5 15]. và i là biến nguyên. Khi chạy đoạn chương trình : s:=0; for i:=1 to 8 do s := s+2*i; writeln(s); Kết quả in lên màn hình là bao nhiªu ? b) Cho S và i là biến nguyên. Khi chạy đoạn chương