百度作业网1、pascal 生成100个数 求低于平均数个数 哪几个
来源：学生作业帮 编辑：百度作业网作业帮 分类：综合作业 时间：2024/05/16 05:09:06
1、pascal 生成100个数 求低于平均数个数 哪几个
2、生成100个数,求偶数个数
3、生成10个数,交换第5个和第8个
4、生成10个数,删去最高、最低
5、生成10个数,把最后一个挪到第一个
2、生成100个数,求偶数个数
3、生成10个数,交换第5个和第8个
4、生成10个数,删去最高、最低
5、生成10个数,把最后一个挪到第一个
1.可以用随机函数：random
program 1;
var a:array[1..100]of longint;
i:longint;
x:double;
begin
for i :=1 to 100 do //循环100个数
a[i]:=random(10000)+1; //生成数（后面的生成和两行语句差不多,就不打了）
for i :=1 to 100 do
x:=x+a[i];
x:=x/100;
for i :=1 to 100 do
if a[i]max then max:=a[i];
if a[i]
program 1;
var a:array[1..100]of longint;
i:longint;
x:double;
begin
for i :=1 to 100 do //循环100个数
a[i]:=random(10000)+1; //生成数（后面的生成和两行语句差不多,就不打了）
for i :=1 to 100 do
x:=x+a[i];
x:=x/100;
for i :=1 to 100 do
if a[i]max then max:=a[i];
if a[i]