Помогите плиз дорешать задачку
Рекурсия Описать рекурсивную функцию 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 (одному)
Помогите в решении задачи!Турбо Паскаль выдает что файл не найден!Не пойму что не так!И вообще,правильно ли я составил программу!? Заранее спасибо!
Типизированные файлы. Дан файл целых чисел. Вывести количество содержащихся в нем серий (то есть наборов последовательно расположенных одинаковых элементов).
Program Z; Var F:File of integer; X,Xs,Kol:integer; Seria:boolean; begin Assign(F,'C:Ser'); {$I-} Reset(F); {$I+} Read(F,Xs); Seria:=False; Kol:=0; While not eof(F) do begin Read(F,X); If (X=Xs) and (not Seria) then begin Seria:=True; Kol:=Kol+1; end; If X<>Xs then begin Read(F,Xs); Seria:=False; end; End; Close(F); write(Kol); end. |