Đề thi chọn đội thi học sinh giỏi tỉnh môn : tin học

 PHÒNG GD- ĐT 	ĐỀ THI CHỌN ĐỘI THI HỌC SINH GIỎI TỈNH
 GIO LINH	 
MÔN : TIN HỌC
Thời gian 150 phút ( Không kể thời gian giao đề )
 Ngày thi 9 tháng 12 năm 2008
HỌC SINH THỰC HÀNH TRÊN MÁY TÍNH
Lưu bài làm vào thư mục D:\CHONHSG
Ví dụ: D:\CHONHSG\BAI1
Câu 1:(3đ) 
 Cho mảng A các số nguyên gồm n phần tử. Viết chương trình tạo mảng B[1..n]. Trong đó B[i] là tổng giá trị của i phần tử đầu tiên của mảng A.
Câu 2:(3đ)
 Nhập vào xâu S (a z), in ra ký tự xuất hiện nhiều lần nhất trong xâu và số lần xuất hiện ? Nếu có nhiều trường hợp thì in ra trường hợp đầu tiên
Ví dụ:
Input
Output
abcaabca
a 4
bcbsaaba
b 3
Câu 3:(4đ) 
 Cho mảng hai chiều các số nguyên. Viết chương trình tính tổng các phần tử lớn nhất của mỗi dòng
HẾT
Chú ý : Học sinh không được sữ dụng tài liệu
ĐÁP ÁN
Program Bai1;(3đ)
 Uses Crt;
 Const max = 100;
 Var A,B:array[1..max] of Integer;i,j,n:integer;
 Begin
 Write(' nhap vao so phan tu cua mang'); Readln(n);
 For i:= 1 to n do
 Begin
 Write('a[',i,']=');readln(a[i]);
 End;
 For i:= 1 to n do
 Write(a[i]:5);
 For i:= 1to n do
 Begin
 B[i]:= 0 ;
 For j:=1 to i do
 B[i]:=B[i]+a[j];
 End;
 For i:= 1 to n do
 Write(B[i]:5);
 Readln;
 End.
Progaram bai2;(3đ)
 uses crt;
 const max = 100;
 var st:string; i,j,max:integer;ch:char;
 Begin
 Write(' nhap vao xau ki tu'); readln(st);
 For ch:= 'a' to 'z' do dem[ch]:=0;
 For i:= 1 to length(st) do
 inc(dem[st[i]]);
 Max:= dem[st[1]];
 For i:= 1 to length(st) do
 if dem[st[i]]> max then max:=dem[st[i]];
 i:=1;
 While dem[st[i]]max do
 begin
 i:=i+1;
 end;
 Writeln(' ki tu xuat hien nhieu nhat la:', st[i]);
 writeln(' so lan xuat hien:',max);
 Readln;
 End.
Progam Bai3;(4đ)
 Uses Crt;
 Type Mang= Array[1..10,1..10] of Integer;
 Var A: Mang;
 m,n,i,j,S,max:Integer;
 Begin
 Write(' nhap vao so dong '); Readln(m);
 Write(' nhap vao so cot '); Readln(n);
 For i:= 1 to m do
 For j:=1 to n do
 Begin
 Write('A[',i,j,']='); Readln(A[i,j]);
 End;
 S:=0;
 For i:= 1 to m do { Duyet qua tung dong}
 Begin
 { Tim phan tu lon nhat dong i }
 Max:=A[i,1];
 For j:= 2 to n do { Duyet tung phan tu cua dong i}
 If max < A[i,j] then max: = A[i,j];
 S:=S+max;
 Writeln(' Tong cac phan tu lon nhat cua moi dong la:',S);
 Readln;
 End;
 End.