dap an mon tin 11

ĐÁP ÁN MÔN TIN HỌC LỚP 11 NĂM HỌC 2011-2012
Phần A: Trắc nghiệm (5điểm)

Câu	1	2	3	4	5	6	7	8	9	10	11	12	13	14	15	16	17	18	19	20
KQ	A	A	B	D	C	A	B	C	A	A	B	B	B	D	C	B	B	A	C	C

Phần B: Tự luận (5điểm)
Bài 1:
program bt1;
  type kmang=array[1..10]of integer;
  var A:kmang;
  i,n:byte;
  procedure nhap(var n:byte;var A:kmang);
  begin
  write('nhap so phan tu cua day');
  readln(n);
  for i:=1 to n do
  begin
  write('A[',i,']=');
  readln(A[i]);
  end;
  end;
  function tinhtong(n:byte; A:kmang):integer;
  var T: byte;
  begin
  T:=0;
  for i:=1 to n do
  T:=T+A[i];
  tinhtong:=T;
  end;
  begin
  nhap(n,A);
  write('tong cac so trong day vua nhap la',tinhtong(n,A));
  readln;
  end.
Bài 2:
program bt2;
var
s,n:integer;
function tongchan(n,s:integer):integer;
var i:integer;
begin
s:=0;
for i:=1 to n do if i mod 2 =0 then s:=s+i;
tongchan:=s;
end;
begin
writeln('nhap n'); readln(n);
writeln('tong day cac so chan la:',tongchan(n,s));
readln;
end.