Рекурсивная функция поиска минимального элемента в одномерном массиве

@Rubal · Регистрация: 30.10.2010

Author24 — интернет-сервис помощи студентам

Написать рекурсивную функцию для поиска минимального элемента в одномерном массиве.

@Puporev · 01.12.2010, 15:51

Pascal

uses crt;
type mas=array[1..50]of integer;
var x:mas;
    n,i:integer;
function Min(n:integer):integer;
var w:integer;
begin
if n>1 then
 begin
  w:=Min(n-1);
  if x[n]>w then Min:=w
  else Min:=x[n]
 end
else Min:=x[1]
end;
 
begin
clrscr;
randomize;
write('Razmer massiva X n=');
readln(n);
writeln('Massiv X:');
for i:=1 to n do
  begin
    x[i]:=random(20);
    write(x[i],' ');
  end;
writeln;
write('min=',Min(n));
readln
end.

07.12.2012, 00:24

в конце выдаёт:
error 85: ";" expected.

@Puporev · 07.12.2012, 09:26

Fabregas_, Скопируй текст и ничего выдавать не будет.

@rom4ikps · 25.10.2014, 13:12

помогите пожалуйста переделать в косвенную рекурсию

@Rubal 1 / 1 / 0 Регистрация: 30.10.2010 Сообщений: 37
		1
	Рекурсивная функция поиска минимального элемента в одномерном массиве 01.12.2010, 14:52. Показов 5884. Ответов 4 Метки нет (Все метки) Написать рекурсивную функцию для поиска минимального элемента в одномерном массиве. 0

Fabregas_
	07.12.2012, 00:24	3
	в конце выдаёт: error 85: ";" expected.

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.12.2012, 09:26	4
	Fabregas_, Скопируй текст и ничего выдавать не будет. 0

@rom4ikps 0 / 0 / 0 Регистрация: 16.01.2014 Сообщений: 49
	25.10.2014, 13:12	5
	помогите пожалуйста переделать в косвенную рекурсию 0

Опции темы

Рекурсивная функция поиска минимального элемента в одномерном массиве

Решение