pascal 让电脑产生10个随机数，算出它们的平均数，从小到大排列

Question

怎么做？打下来。谢谢

Answer 1

首先 可以用random函数生成10个随机数，再全部加起来，除以个数就是平均数了。从小到大排列可以用冒泡排序的方法。
Var
a:array[1..10]of Integer;
i,j:Integer;
Begin
Randomize; {在使用random函数前先打乱}
For i:=1 to 10 do
Begin
a[i]:=Random(100)+1; {生成一个1至101间的随机数}
j:=j+a[i]; {把数加进统计变量中算平均数}
End;
For i:=1 to 10 do {冒泡排序}
For j:=i+1 to 10 do
If a[i]>a[j] Then
Begin
a[i]:=a[i] xor a[j]; {交换两个数的位置}
a[j]:=a[i] xor a[j];
a[i]:=a[i] xor a[j];
End;
For i:=1 to 10 do
Write(a[i],' ');
Writeln;
Writeln(j/10:2:2);
Readln;
End.

_____________________
测试成功 望采纳

追问

看不懂?
把意思也打下来,谢谢.

追答

几个函数的意义：
randomize是随机函数的生成器。
random是随机函数，random(100); 表示生成一个0到一百的随机数。

先用for语句循环10次，每次生成一个随机数，然后每个都加进累加变量里（用来求平均数，因为平均数的计算方法是 总数÷数量，这里把所有生成的数加起来，就是总数，数量是10，所以平均数是总数÷10）

冒泡排序法：
就是把一个数组看成一个水池，重（数大的）的会沉下去，轻（数小的）的会飘上来，所以只要比较相邻的两个数谁大谁小，再看情况调换（就是if语句中的部分）即可。
具体的冒泡排序可以到此网址看：
http://baike.baidu.com/view/254413.htm#sub254413

for i:=1 to 10 do
Write(a[i],' ');
这句就是表示循环十次，并把数组中的每个数据依次输出，比如：
循环的第一次：i的值是1，所以a[i]就表示a的第一个数据，也就是最小的（之前排序了）
循环的第二次：i的值是2，所以a[i]就表示a的第二个数据，也就是第二小的.....
以此类推，输出所有的10个数据。

Writeln;这句表示输出一行空行，就是表示新开一行，比如我这段代码：
Write('ss');
Writeln;
Write('aa');
程序的最终输出结果就是
ss （开行 括号里是不会出现的，只是我的解释）
aa

Write(j/10:2:2); 这句表示输出j的值÷10，除不尽的保留两位小数。

————————
大概就是这样了， 望采纳..打的好辛苦呢！

Answer 2

10个排序那就用普通的。
var
a:array[1..10]of integer;
i,j,t:integer;
average:real;
begin
for i:=1 to 10 do read(a[i]);
{
randomize;
for i:=1 to 10 do a[i]:=random(31000);
}//如果要生成随机数，把for i:=1 to 10 do read(a[i]);换成大括号里面的语句。
average:=0;
for i:=1 to 10 do average:=average+a[i];
average:=average/10;
for i:=1 to 9 do //开始排序。
for j:=i+1 to 10 do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
writeln(average:0:2);//输出平均数保留两位小数，自己可以更改
for i:=1 to 10 do write(a[i],' ');
writeln;
end.

追问

看不懂?
把意思也打下来,谢谢.

追答

average是平均数，变量，实型。一开始变量清零，从1到10加上生成（或读入）的整数，然后除以10
然后开始排序。枚举a[1]然后找a[2],a[3],a[4],...,a[10]如有比a[1]大的数则交换，再枚举a[2]寻找a[3],a[4],...,a[10]，……枚举到a[9]，判断a[10]如比a[9]大则交换。所有交换完成则是从小到大排列。 交换只要把一个变量作为中介。
然后输出平均数，默认保留两位小数writeln(average:0:2); :0无意义，:2表示保留的小数位数。然后输出a[1],a[2],a[3],...,a[10]

Answer 3

var
a:array[0..1001] of longint;
i,x,sum:longint;

begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
x:=random(1000);
inc(a[x]);{桶排}
inc(sum,x);
end;
writeln(sum/10:0:1);
i:=0;
while i<=1000 do
begin
while (a[i]=0)and(i<=1000) do inc(i);
write(i,' ');
dec(a[i]);
end;
writeln;
end.

追问

没用