De thi pascal tin học trẻ không chuyên cơ sở

ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013 BẢNG B: KHỐI THCS ĐỀ THI: THỰC HÀNH THỜI GIAN: 120 PHÚT CÂU 1: cho dãy số A gồm n phần tử nhập từ bàn phím, viết chương trình tính tổng số chia hết cho CÂU 2: Viết chương trình tìm n nhỏ để tổng số từ đến n lớn 1000 CÂU 3: Cho mảng A 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 phần tử x mảng CÂU 4: Viết chương trình nhập vào mảng số nguyên, tìm phần tử nhỏ hoán vị với phần tử thứ ĐÁP ÁN ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013 BẢNG B: KHỐI THCS ĐỀ THI: THỰC HÀNH THỜI GIAN: 120 PHÚT CÂU 1: cho dãy số A gồm n phần tử nhập từ bàn phím, viết chương trình tính tổng số chia hết cho Program chiahet3va5; Uses crt; Var i, n, : integer; Tong, ai:real; Begin Write(‘nhap so phan tu cua mang n=’); Readln(n); I:=0; Tong:=0; For i:= to n Begin Write(‘nhap phan tu thu ‘,i:2,’ ’); Readln(ai); If (ai mod =0) and (ai mod = 0) then tong:=tong+ai; End Write(‘tong cac so chia het cho va la:’,tong); Readln End Câu 2: Viết chương trình tìm n nhỏ để tổng số từ đến n lớn 1000 Program timn; Uses crt; Var tong, i:integer; Begin Clrscr; Tong:=0; i:=0; While tonga[i] then begin min:=a[i]; vitri:=i; end; end; a[vitri]:=a[1]; a[1]:=min; writeln(‘mang sau doi cho la:’); for i:=1 to n write(a[i]); writeln; readln end  ... End; Write(‘nhap vao phan tu x can dem:’); Readln(x); For i:= to spt If a[i]=x then inc(dem); If dem=0 then write(‘khong co phan tu nao bang x!’) else Write(co ‘,dem,’ phan tu bang x!’); Readln;... bàn phím Viết chương trình tìm số lần xuất phần tử x mảng Program demx; Uses crt; Const n=10; Var a:array[1 10] of real; x:real; Dem, i, spt:integer; Begin Clrscr; Write(‘nhap so phan tu cua mang’);...ĐÁP ÁN ĐỀ THI TIN HỌC TRẺ NĂM HỌC 2012-2013 BẢNG B: KHỐI THCS ĐỀ THI: THỰC HÀNH THỜI GIAN: 120 PHÚT CÂU 1: cho dãy số A gồm n phần tử