Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
Đáp Án
HỆ: Trung Học Cơ Sở
Thời gian: 120 phút
Bài 1
: Viết chương trình
a) Nhập vào số nguyên N và 2 dãy số nguyên: (1 đ)
A
1
, A
2
, A
3
, …, A
N
B
1
, B
2
, B
3
, …, B
N
b) Cộng từng phần tử tương ứng của 2 dãy trên vào dãy: (1 đ)
KQ
1
, KQ
2
, KQ
3
, …,KQ

for j:=i+1 to n do
if kq[i]<kq[j] then
begin
tmp:=kq[i];
kq[i]:=kq[j];
kq[j]:=tmp;
end;
for i:=1 to n do
write(kq[i]:3);
readln;
end.
Bài 2
: Viết chương trình
a) Nhập vào số nguyên N > 0, nếu N < 0 người dùng nhập lại. (1.5 đ)
b) Nhập giá trị cho dãy số nguyên Z
1
, Z
2
, Z
3
, …,Z
N
(0.5 đ)
c) Xuất ra màn hình các phần tử không chia hết cho 3 của dãy Z (1.5 đ)
Ví Dụ:
N = 3
Z: 5 8 3
 Các phần tử không chia hết cho 3: 5 8
Program Bai2;
var z: array[1..100] of integer;

Program Bai3;
uses crt;
var str: string;
i: integer;
dung:boolean;
begin
textbackground(1);
clrscr;
write('Nhap Ho va Ten: ');
readln(str);
textcolor(14);
dung:=false;
while true do
for i:=1 to 80 do
3/4
Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
begin
gotoxy(i,10);
write(str);
delay(1000);
clrscr;
dung:=keypressed;
if dung then
exit;
end;
end.
----- Hết -----
4/4