Решить задачу с применением рекурсии и без неё
Найти максимальный элемент в массиве a[1...n], используя соотношение max (a[1...n])=max (max (a[1...n-1]), an)
Вот через функции , а нужно ещё составить через процедуры и объединить в одну программу
PHP код:
type mas=array[1..50]of integer;
var a:mas;
n,i:integer;
function Max(n:integer):integer;
var w:integer;
begin
if n>1 then
begin
w:=Max(n-1);
if a[n]<w then Max:=w
else Max:=a[n]
end
else Max:=a[1]
end;
begin
randomize;
write('Razmer massiva A n=');
readln(n);
writeln('Massiv A:');
for i:=1 to n do
begin
a[i]:=random(20);
write(a[i],' ');
end;
writeln;
write('max=',Max(n));
readln
end.