高校问答今夜舞起来学生版舞蹈:PASCAL简单的题目，求答案
来源：百度文库 编辑：高校问答 时间：2024/04/29 04:59:35
用递归的方法完成下列问题
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]。