ĐỀ THI THAM KHẢO TIN HỌC TRẺ NĂM HỌC 2012-2013
THỜI GIAN: 120 PHÚT
CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng
các số chia hết cho 3 và 5.
CÂU 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000.
CÂU 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím. Viết chương trình tìm số
lần xuất hiện của phần tử x trong mảng.
CÂU 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị
nó với phần tử thứ nhất.

ĐỀ THI THAM KHẢO TIN HỌC TRẺ NĂM HỌC 2012-2013
THỜI GIAN: 120 PHÚT
CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng
các số chia hết cho 3 và 5.
CÂU 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000.
CÂU 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím. Viết chương trình tìm số
lần xuất hiện của phần tử x trong mảng.
CÂU 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị
nó với phần tử thứ nhất.
ĐỀ THI THAM KHẢO TIN HỌC TRẺ NĂM HỌC 2012-2013
THỜI GIAN: 120 PHÚT
CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng
các số chia hết cho 3 và 5.
CÂU 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000.
CÂU 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím. Viết chương trình tìm số
lần xuất hiện của phần tử x trong mảng.
CÂU 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị
nó với phần tử thứ nhất.
ĐỀ THI THAM KHẢO TIN HỌC TRẺ NĂM HỌC 2012-2013
THỜI GIAN: 120 PHÚT
CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng

Var tong, i:integer;
Begin
Clrscr;
Tong:=0; i:=0;
While tong<1000 do
Begin
i:=i+1;
Tong:=tong+i;
End;
Writeln(‘so n nho nhat de tong lon hon 1000 la’,i:4);
Write(‘gia tri cua tong la’,tong:4);
Readln
End.
Câu 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím. Viết chương trình tìm số
lần xuất hiện của phần tử x trong mảng.
Program demx;
Uses crt;
Const n=10;
Var a:array[1 10] of real;
x:real;
Dem, i, spt:integer;
Begin
Clrscr;
2
Write(‘nhap so phan tu cua mang’);
Readln(spt);
For i:=1 to spt do
Begin
Write(‘nhap phan tu thu ‘,i,’ ’);
readln(a[i]);

begin
min:=a[i];
vitri:=i;
end;
end;
a[vitri]:=a[1];
a[1]:=min;
writeln(‘mang sau khi doi cho la:’);
for i:=1 to n do
write(a[i]); writeln;
readln
end.
3
Bài 6 - Nhập vào 1 mảng gồm n số nguyên (2<n<20). In ra các số nguyên tố có trong mảng
program Mang;
uses crt;
var a:array [ 1 20] of byte;
i,n,d,j,k:integer;
procedure nhap;
begin
for i:=1 to n do
begin
write(' a[',i,']=');readln(a[i]);
end;
end;
procedure nguyento;
begin
write(' Day so cac so nguyen to:');
k:=0;
for i:=1 to n do

PROGRAM am_duong_cach_biet;
USES crt;
VAR
a:ARRAY[1 100] OF INTEGER;
i,n:BYTE;
BEGIN
4
clrscr;
write('Nhap so phan tu cua day vao: ');
readln(n);
FOR i:=1 TO n DO
BEGIN
write('Nhap phan tu thu: ',i,' vao: ');
readln(a[i]);
END;
write('Nhung so duong la: ');
FOR i:=1 TO n DO
IF a[i]>0 THEN write(a[i],' ');
writeln;
write('Nhung so am la : ');
FOR i:=1 TO n DO
IF a[i]<0 THEN write(a[i],' ');
readln;
END.
10,Tính trung bình cộng riêng các số dương, âm nhập vào từ 1 mảng
PROGRAM tbc_am_duong_mang;
USES crt;
VAR a:ARRAY[1 100] OF REAL;
i,n,x,y:INTEGER;
tongam,tongduong,tba,tbd:REAL;