中科新闻网雨中景色描写优美语句:PASCAL简单的题目，求答案
来源：百度文库 编辑：中科新闻网 时间：2024/04/20 07:09:10
用递归的方法完成下列问题
1.求数组中的最大数
1.求数组中的最大数
type
Ta = array[1..10] of Integer;
--------------------------------------------
function ArrMax(arr: Ta; n: integer): integer;
begin
if n = 1 then
Result := arr[1]
else
Result := Max(ArrMax(arr, n-1), arr[n]);
end;
--------------------------------------------
var
a: Ta;
i: integer;
begin
a[1] :=5;
a[2] :=4;
a[3] :=3;
a[4] :=2;
a[5] :=1;
a[6] :=4;
a[7] :=8;
a[8] :=7;
a[9] :=6;
a[10] :=1;
writeln(arrmax(a, 10));
---------------------------------------------
假设数组a有n个数，则max(a,n)为a[n]和max(a,n-1)中的较大者。
另外，max(a,1)=a[1]。