高校问答沟通 营销 案例:pascal教教我编这些程序
来源：百度文库 编辑：高校问答 时间：2024/05/05 01:53:38
1；求数组中的最大数
2 求n个整数的积
3 求n个整数的平均值
4 求n个自然数的最大公约数与最小公倍数
2 求n个整数的积
3 求n个整数的平均值
4 求n个自然数的最大公约数与最小公倍数
程序如下：
program ex1;
var a:array[1..100] of integer;
i,max,n:integer;
begin
readln(n);{看看你想读几个到数组去啊}
for i:=1 to n do read(a[i]);{读吧}
readln;
max:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
{寻找最大ING~}
writeln(a[i]);
end.
2和3差不多可以用1的改，但是数组要开大点，变量也是，开浮点吧。不过你不给数据范围，我也没办法做。
sigh
PROGRAM
......