作业帮pascal问题 求N个整数的平均数、众数和中位数求N个整数的平均数,众数和中位数.小知识：* 众数 如有9个数：17 13 17 9 17 17 3 16 17 17出现的次数最多,即为这组数的众数.* 中位数 如有9个数：
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 00:08:37
pascal问题 求N个整数的平均数、众数和中位数求N个整数的平均数,众数和中位数.小知识：* 众数 如有9个数：17 13 17 9 17 17 3 16 17 17出现的次数最多,即为这组数的众数.* 中位数 如有9个数：
pascal问题 求N个整数的平均数、众数和中位数
求N个整数的平均数,众数和中位数.小知识：* 众数 如有9个数：17 13 17 9 17 17 3 16 17 17出现的次数最多,即为这组数的众数.* 中位数 如有9个数：102 170 96 90 97 106 110 182 100 将这9个数按一定的顺序（从大到小或从小到大）排列后得到： 182 170 110 106 102 100 97 96 90 正中间的一个数是102,102是这组数的中位数. 而这10个数：106 99 104 120 107 112 33 102 97 100 按一定顺序排列后得到：120 112 107 106 104 102 100 99 97 33 正中间有两个数：104 102,中位数就是这两个数的平均数,即（104+102）/ 2 = 103.
输入
第一行为整数N（5
样例输入是
6
5 2 2 3 5 6
pascal问题 求N个整数的平均数、众数和中位数求N个整数的平均数,众数和中位数.小知识：* 众数 如有9个数：17 13 17 9 17 17 3 16 17 17出现的次数最多,即为这组数的众数.* 中位数 如有9个数：
{
而这10个数：106 99 104 120 107 112 33 102 97 100 按一定顺序排列后得到：120 112 107 106 104 102 100 99 97 33 正中间有两个数：104 102,中位数就是这两个数的平均数,即（104+102）/ 2 = 103.
这段你写的不对吧?好像题目中写过A[i]maxn then
begin
maxn:=s[i];
mm:=i;
end;
writeln({众数}mm);
{普通冒泡排序}
for i:=1 to n do
for j:=i+1 to n do
if a[i]
var
procedure kp(l,r:integer);
begin
var a,b,mid,t:integer;
a:=l;b:=r;mid:=s[(a+b) div 2};
repeat
while s[a]
if a
全部展开
var
procedure kp(l,r:integer);
begin
var a,b,mid,t:integer;
a:=l;b:=r;mid:=s[(a+b) div 2};
repeat
while s[a]
if at:=s[a];
s[a]:=s[b];
s[b]:=t;inc(a);inc(b);
end;
until a>b;
if lif a
begin
read(n);
for i:=1 to n do
begin
read(s[i]);
zhong:=zhong+s[i];
inc(zh[s[i]]);
end.
zhong:=zhong div i;
kp(1,i);m:=0;max:=zh[s[1]];
repeat
inc(m);
if max
writeln(zhong{pin jun shu},' ',s[p]{zhong shu},' ',s[i div 2]);
end.
至于其他的你自己去弄吧
收起
a,b:array[1..1000] of integer;
begin
read(n);
for i:=1 to n do
begin
read(a[n]);
t:=t+a[n];
inc（b[a[n]】）；
end;
write(t/n:2:3);
max:=b[1];
j:=1;
for i:=2 to a[n] do
if max
max:=b[i];
j:=i;
en;
writeln(j);
end;