求N个整数的平均数、众数和中位数 用pascal,我只学过pascal

program DoingData;
var
n :longint;
sum:longint;
n1 :real;
n2 :longint;
n3 :real;
a :array[0。。1000] of longint;
f :array[0。。100] of longint;
procedure input();
var
i:longint;
begin
readln(n);
sum:= 0;
for i:= 1 to n do
begin
read(a[i]);
inc(f[a[i]]);
inc(sum,a[i]);
end;
end;
procedure print_n1();
begin
n1:= sum / n;
write(n1:0:2,' ');
end;
procedure print_n2();
var
max:longint;
i :longint;
begin
max:= f[1];
for i:= 2 to n do
if f[i] > max then
begin
max:= f[i];
n2:= i;
end;
write(n2,' ');
end;
procedure print_n3();
var
mid1:longint;
mid2:longint;
procedure qsort(s,e:longint);
var
i,j,mid:longint;
begin
i:= s;
j:= e;
mid:= a[(i + j) div 2];
while i mid do
inc(i);
while a[j] < mid do
dec(j);
if i s then qsort(s,j);
end;
begin
qsort(1,n);
if odd(n) then
writeln(a[(1 + n) div 2])
else
begin
mid1:= a[(1 + n) div 2];
mid2:= a[(1 + n) div 2 + 1];
n3:= (mid1 + mid2) / 2;
writeln(n3:0:1);
end;
end;
begin
input;
print_n1;
print_n2;
print_n3;
end。
再问： 还是错的，不信你看： 运行编号 用户 问题 结果 内存 耗时 语言 代码长度 提交时间 471692 pengbo 1180 答案错误11% 232 16 Pascal 2147 B 2012-01-25 07:52:50
再答： begin qsort(1, n); if odd(n) then writeln(a[(1 + n) div 2]) else begin ******** mid1:= a[(1 + n) div 2]; ******** mid2:= a[(1 + n) div 2 + 1]; n3:= (mid1 + mid2) / 2; writeln(n3: 0: 1); end; end; 有*的地方改成mid1:= a[n div 2]; mid2:= a[n div 2 + 1]; 再试试，应该对了
再问： 还是错的： 用户 问题 结果 内存 耗时 语言 代码长度 提交时间 pengbo 1180 答案错误11% 232 20 Pascal/Edit 2197 B 2012-01-26 07:45:59
再答： procedure print_n2(); var max: longint; i : longint; begin max:= f[1]; ******n2:= 1; 这里加上 for i:= 2 to n do if f[i] > max then begin max:= f[i]; n2:= i; end; write(n2, ' '); end;
再问： 还错的： pengbo 1180 答案错误22%
再答： 求网址，自己调
再问： oj。jzxx。net