PASCAL 求最大值 最小值 平均值
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/10 23:07:22
PASCAL 求最大值 最小值 平均值
输入
12.7
20080906
98765432.1
0.20080906
5
0.01
22
0(当末项是0时,才执行程式)
输出
98765432.10(最大值)
0.01(最小值)
16978054.00(平均值)
输入
12.7
20080906
98765432.1
0.20080906
5
0.01
22
0(当末项是0时,才执行程式)
输出
98765432.10(最大值)
0.01(最小值)
16978054.00(平均值)
var
a:array[1..10000] of real;
n,max,min:integer;
num:real;
begin
n:=1;{n存放共有几个数}
readln(a[1]);
max:=1;
min:=1;
while a[n]0 do
begin
if a[n]>a[max] then max:=n;{如果a[n]比a[max]大,则把max指针指向n}
if a[n]
a:array[1..10000] of real;
n,max,min:integer;
num:real;
begin
n:=1;{n存放共有几个数}
readln(a[1]);
max:=1;
min:=1;
while a[n]0 do
begin
if a[n]>a[max] then max:=n;{如果a[n]比a[max]大,则把max指针指向n}
if a[n]
输入几个数,求最大值最小值平均值?
求n个数的最大值和最小值用Pascal
求n个数的最大值和最小值(pascal)
1025:【入门】求n个数的最大值和最小值 pascal
任意输入10个数,求最大值、最小值、平均值
知道最小值最大值 怎么求平均值和标准差?
c语言:输入十个数,求最大值,最小值,平均值
简单的指针求最大值最小值平均值问题
求输入的最大值和最小值及平均值
求救,新手上路,求一个 Java程序,计算一组数字的个数,最大值 最小值 平均值,最大值和最小值的差.
Free Pascal语言.求10个数的最大值和最小值,我们循环语句的作业,帮看下,
VB 求10个元素所构成108个元素个位数最大值,最小值,平均值统计低于平均值且元素之和