不是VIP会员,不能显示答案

题目解答

题目:
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
考点: 0
分析:
解答: 这是个求中位数的程序。注意读入的时候不是把数读进a[i],而是让a[x]+1。简单模拟也可以。
评论:
老师: 0