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;
--------------------------------------------
vara: 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));
---------------------------------------------
2樓:匿名使用者
假設陣列a有n個數,則max(a,n)為a[n]和max(a,n-1)中的較大者。
另外,max(a,1)=a[1]。
求PASCAL題目的答案,用比較簡單的方法的出答案,在解釋一
絕 w 醒 角谷猜想 vara longint begin readln a while a 1 do begin if a mod 2 0 then begin writeln a,2 a div 2 a a div 2 end else begin writeln a,3 1 a a 1 a a...
pascal題目非常數,求程式,pascal題目非常數,求程式
var n,i longint function sum k longint longint var i,s longint begin s 0 i 2 while k 1 do begin while k mod i 0 do begin s s i k k div i end inc i end...
經濟學題目,求答案,經濟學題目,求答案
當患病牛肉流入市場時,人們對牛肉的需求會急劇下降,然而隨著時間的推移,問題牛肉得到解決,牛肉需求又會重新提公升。下面乙個簡單的圖 經濟學題目,求解答 邊關大石頭 勞動日是乙個根據勞動量換算和標記出來的量 如果將乙個勞動者一天8小時的勞動確定為乙個勞動日,那麼勞動量單位就是 1天 8小時 1人。如果將...