Помогите решить задачу на Турбо Паскале!

  • Автор темы Maxxy
  • Дата начала
Статус
Закрыто для дальнейших ответов.
M

Maxxy

#1
Помогите плиз дорешать задачку

Рекурсия
Описать рекурсивную функцию MinRec(A,N) вещественного типа, которая
находит минимальный элемент вещественного массива A размера N, не
используя оператор цикла. С помощью функции MinRec найти минимальные
элементы массивов A, B, C размера NA, NB, NC соответственно.


Program Recursiya;
type
Intarray=array[1..100] of integer;
var
N:Integer;
A:Intarray;
Function MinRec(var A : Intarray;N: Integer): integer;
begin
If N=1 then
MinRec:=A[1]
else MinRec:=MinRec(A,N-1)
end;
begin
N:=3;
A[1]:=3; A[2]:=2; A[3]:=1;
Writeln('=',FindSum(A,3));
end.

В этом случае выдает "=3",а мне надо чтобы ответ был =1 (одному)
 
O

Ogion7

#2
Код:
If N=1 then
MinRec:=A[1]
else 
begin
if MinRec(A,N-1)>A(N) then
MinRec:=A(N)
else MinRec:=A(N-1)
end;
end;
не проверял
 
Статус
Закрыто для дальнейших ответов.