1、pascal 生成100个数 求低于平均数个数 哪几个
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/17 18:42:13
1、pascal 生成100个数 求低于平均数个数 哪几个
2、生成100个数,求偶数个数
3、生成10个数,交换第5个和第8个
4、生成10个数,删去最高、最低
5、生成10个数,把最后一个挪到第一个
2、生成100个数,求偶数个数
3、生成10个数,交换第5个和第8个
4、生成10个数,删去最高、最低
5、生成10个数,把最后一个挪到第一个
![1、pascal 生成100个数 求低于平均数个数 哪几个](/uploads/image/z/17478958-22-8.jpg?t=1%E3%80%81pascal+%E7%94%9F%E6%88%90100%E4%B8%AA%E6%95%B0+%E6%B1%82%E4%BD%8E%E4%BA%8E%E5%B9%B3%E5%9D%87%E6%95%B0%E4%B8%AA%E6%95%B0+%E5%93%AA%E5%87%A0%E4%B8%AA)
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]