Trắc nghiệm tin học thứ dữ nè!!!

Câu 1:
A:=5; B:=8; C:=10; C:=a+c;
If B>A then C:=A else C:=B;
Kết quả C là?
a- 10 b/ 5 c/ 8 d/ 13
Câu 2: Cho biết kết quả đọan chương trình:
for i:= 1 to 10 do write(i:5);
a- Viết ra màn hình các số nuyên từ 1 đến 9
b- Viết ra màn hình số 1
c- Viết ra màn hình số 10
d- Viết ra màn hình nguyên các số từ 1 đến 10
Câu 3: khai báo biến kiểu xâu sai?
a- Var s: string[255];
b- Var s: string;
c- Var s: string[300];
d- Var s: string[10];

Câu 4: Khai báo Var a: array[1..10] of Integer;
Trong các câu lệnh, lệnh mà bị lỗi.
a/- a[1]:=5; b/- a[2]:= a[1]+1;
c/- a[11]:=1; d/- a[4]:= a[1] + a[2];

Câu 5:
X:=2007; d:=0;
While x<> 0 do
Begin
X:=X div 10
D:=d+1;
End;
Khi thực hiện, giá trị biến d là?
a/ 0 b/ 1 c/ 2 d/ 4

Câu 6:
S:=0;
For i:=5 to 6 do s:=s +i ;
Khi thực hiện giá trị s là
a/ 0 b/ 5 c/ 11 d/ 6

Câu 7: x:= 2007; d:=0;
If x>= 0 then d:=d+1 else d:=d – 1;

Khi thực hiện giá trị biến d?
a/ Tăng 1 đơn vị. b/ Giảm 1 đơn vị.
c/ d không đổi d/ Câu lệnh sai

Câu 8: Cho đoạn chương trình sau:
t:=0;
For i:=1 to 10 do
If (i mod 2)=0 then t:=t+i Else t:=t-i;
Hỏi kết quả của t bằng bao nhiêu ?
a/ 5 b/ 6 c/ 4 d/ -5

Câu 9 : Câu lệnh While – do thực hiện lệnh lặp ít nhất bao nhiêu lần ?
a/ 0 b/ 1 c/ 2 d/ 3

Câu 10: Khai báo biến x là biến bản ghi đúng
a- Type bg= record
Sbd: byte;
T,v,l,h: real;
End;
Var x: array[1..100] of BG;
b- Type bg= record
Sbd: byte;
T,v,l,h: real;
Var x: array[1..100] of BG;
c- bg= record
Sbd: byte;
T,v,l,h: real;
End;
Var x: array[1..100] of BG;

B- Phần Tự luận:
Câu 11 :Viết chương trình nập vào dãy số nguyên (<100) in ra giá trị lớn nhất trong dãy, vị trí phân tử có gía trị lớn nhất sau cùng .

Yêu cầu:
- Khai báo đúng biến mảng (dãy) (1đ).
- Nhập giá trị của dãy (1đ);
- Tìm và in max ra màn hình (2đ);
- Xác định đúng vị trí (1đ).

Mần ơn gởi đáp án - biết câu nào trả lời câu đó!

1.b
2.d
3.c
4.c
5.a
6.c
7.a
8.a
9.a
10.a
11.
Program Bai_11;
Uses crt;
Var n,i,vitri : byte;
max, a : integer;
Begin
clrscr;
Write('Day co bao nhiu so ? : ');readln(n);
Write('Nhap so thu 1: ');readln(max);
For i:=2 to n do
Begin
Write('Nhap so thu ',i,' : ');readln(a);
If a>=max then
Begin
max:=a;
vitri:=i;
End;
End;
Write('So lon nhat : ',max);
Write('Vi tri cua phan tu lon nhat sau cung: ',vitri);
Readln;
End.

ông nobita ăn cắp avatar của tui đóa hả