1、pascal 生成100个数 求低于平均数个数 哪几个2、生成100个数,求偶数个数3、生成10个数,交换第5个和第8个4、生成10个数,删去最高、最低5、生成10个数,把最后一个挪到第一个

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/25 21:59:29
1、pascal生成100个数求低于平均数个数哪几个2、生成100个数,求偶数个数3、生成10个数,交换第5个和第8个4、生成10个数,删去最高、最低5、生成10个数,把最后一个挪到第一个1、pasc

1、pascal 生成100个数 求低于平均数个数 哪几个2、生成100个数,求偶数个数3、生成10个数,交换第5个和第8个4、生成10个数,删去最高、最低5、生成10个数,把最后一个挪到第一个
1、pascal 生成100个数 求低于平均数个数 哪几个
2、生成100个数,求偶数个数
3、生成10个数,交换第5个和第8个
4、生成10个数,删去最高、最低
5、生成10个数,把最后一个挪到第一个

1、pascal 生成100个数 求低于平均数个数 哪几个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]

1、pascal 生成100个数 求低于平均数个数 哪几个2、生成100个数,求偶数个数3、生成10个数,交换第5个和第8个4、生成10个数,删去最高、最低5、生成10个数,把最后一个挪到第一个 pascal语言编程问题(free pascal求1—N中的素数的个数.(1 pascal求两个数的最小公倍数 FREE PASCAL,输入两个数,求最小公倍数 Pascal语言求两个数的最小公倍数和最大公约数 1025:【入门】求n个数的最大值和最小值 pascal PASCAL语言求程序:对于给定的n,求1至n中有多少个数是质数 求100以内的素数pascal语言 求平均数 用free pascal输入n个数,求出这些数的平均数.输入:只有一行共有n个数,数与数之间用一个空格隔开 (1 pascal求平均数(三)Description输入n个数,求出这些数的平均数.Input只有一行共有n个数,数与数之间用一个空格隔开 (1 pascal编程求1+3+5+...+n一定要是自己是过的,要用pascal! pascal 奇数阶幻方用pascal实现生成任意奇数阶幻方 pascal题:取数,求代码!有n个数(2≤n≤100),排成一排,从n个数中任取若干个数,取数规则为每次取相邻的2个数,不能取1个,也不能取多于2个连续的数,找一种取法,使取得的数的和为最大.例如:n= pascal求N个数中最大数及其位置【输入样例】55 4 3 2 1 【输出样例】5 1 给出一个整数n,其中n小于等于1000.请求出1~n中所有的素数的个数求一pascal程序 用free pascal编程:输入两个数,求他们的最大公因数和最小公倍数 Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下, 求n 个数的最小公倍数!(要用pascal语言做,今晚必回!)