Question

Answer 1

A: Phần trắc nghiệm

Câu 1: A

Câu 2: A

Câu 3: D

Câu 4: A

Câu 5: B

Câu 6: A

Câu 7: C

Câu 8: C

Câu 9: B

Câu 10: D

Câu 11: B

Câu 12: C

Answer 2

*Tự luận

Câu 1: 

a) var diemtb:array[1..45]of real;

b) tuoi:array[1..10]of byte;

Câu 2:

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(t);

readln;

end.