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

来源：学生作业学帮网编辑：学帮网时间：2024/04/29 00:14:05

首先可以用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.
_____________________
测试成功望采纳

pascal 让电脑产生10个随机数,算出它们的平均数,从小到大排列 PASCAL 编程让电脑产生10个随机数,然后在输出他们的和,平均数,最大数和最小数. pascal 让电脑产生两个随机数,并计算他们的最大公约数和最小公倍数! pascal中如何产生随机数 free pascal怎样产生随机数 PASCAL 让计算机产生两个随机数然后计算他们的最大公倍数与最小公约数 Free Pascal怎样产生从1到1000的100个随机数rt pascal随机数产生20个1--30之间的随机数,按照从小到大的顺序排列输出.然后去除相同的随机数,再输出一次.pascal 编写程序,产生10 个随机数,然后按产生顺序相反的次序输出这些随机数 pascal 利用随机函数产生的20个50—100范围内的随机数,显示它们的最大值、最小值和平均值. VB编程产生100个[10,99]的随机数 C#产生10个随机数并倒序排列 java中产生10个随机数,把随机数排序,输出到文件中去. 用c语言编写：首先由电脑产生4个随机数（10以内）,再由用户输入4个数,也是10以内,例如.例如电脑产生的随机数为1,2,3,4,然后用户输入的数为4,3,2,1,则显示为0阳4阴,也就是若有几个数字是一一在excel中如何让n个随机数的和为定值,且随机数在其平均数上下浮动例子：随机数的产生为：185在±5内浮动,但是有10个随机数后其和值为1850 PASCAL怎么产生不同的随机数?(在同一范围内)简单点的程序用随机函数random产生100到1000的随机数,用pascal语言,语句怎么写?