2013省句中信息学奥赛初赛读程序练习一.doc

2013省句中信息学奥赛初赛读程序练习一 1.var n,i,temp,sum:integer;// 第十八届第一题 a :array[1..100] of integer; begin readln(n); for i:=1 to n do read(a[i]); for i:=1 to n-1 do if a[i]a[i+1] then begin temp := a[i]; a[i] := a[i+1]; a[i+1] := temp; end; for i:=n downto 2 do if a[i]a[i-1] then begin temp := a[i]; a[i] := a[i-1]; a[i-1] := temp; end; sum := 0; for i:=2 to n-1 do inc(sum,a[i]); writeln(sum div (n-2)); end. 输入： 8 40 70 50 70 20 40 10 30 输出：______________ 2.const size=100; //第十七届第一题 var n,i,sum,x:integer; a:array[1..size] of integer; begin readln(n); fillchar(a,sizeof(a),0); for i:=1 to n do begin read(x); inc(a[x]); end; i:=0; sum:=0; while sum(n div 2 + 1) do begin inc(i); sum:=sum+a[i]; end; writeln(i); end. 输入： 11 4 5 6 6 4 3 3 2 3 2 1 输出：_________ 3.Const size = 10; //第十六届第一题 var i, j, cnt, n, m: integer; data: array[1..size] of integer; begin readln(n, m); for i := 1 to n do read(data[i]); for i := 1 to n do begin cnt := 0; for j:= 1 to n do if (data[i]data[j]) or ((data[j]=data[i]) and (ji)) then inc(cnt); if cnt = m then writeln(data[i]); end; end. 4.var n,i,ans:integer;// 第十八届第二题 function gcd(a,b :integer) : integer; begin if a mod b=0 then gcd :=b else gcd := gcd(b,a mod b); end; begin readln(n); ans := 0; for i:=1 to n do if gcd(n,i)=i then ans := ans + 1; writeln(ans); end. 输入：120 输出：_____________ 5.var n:integer;// 第十七届第二题 procedure f2(x,y:integer); forward; procedure f1(x,y:integer); begin if xn then f2(y,x+y); end; procedure f2(x,y:integer); begin write(x,’ ’); f1(y,x+y); end; begin readln(n); f1(0,1); end. 输入：30 输出：__________ 6.procedure foo(a,b,c:integer); 第十四届第二题 begin if ab then foo(c,a,b) else writeln(a,,,b,,,c) end; var a,b,c:integer; begin readln(a,b,c); foo(a,b,c); end. 输入：2 1 3