Написать программу определения минимального элемента одномерного массива чисел

@Alenka 20_04 · Регистрация: 22.03.2014

Написать программу определения минимального элемента одномерного массива чисел, используя рекурсивную функцию, находящую минимум среди последних элементов массива, начиная с k- того.

заранее огромное СПАСИИИБО))

@Puporev · 22.03.2014, 15:43

Pascal

type mas=array[1..50] of integer;
var x:mas;
    n:integer;
function Min(k:integer):integer;
var mnk:integer;
begin
if k=n then Min:=x[k]
else
 begin
     mnk:=Min(k+1);
     if mnk<x[k] then Min:=mnk
     else Min:=x[k];
    end;
end;
var i,k:integer;
begin
randomize;
repeat
write('Razmer massiva X [1..50] n=');
readln(n);
until n in [1..50];
writeln('Massiv X:');
for i:=1 to n do
  begin
    x[i]:=random(100);
    write(x[i]:4);
  end;
writeln;
repeat
write('k=');readln(k);
until k in [1..n];
write('min=',Min(k));
end.

@Alenka 20_04 0 / 0 / 0 Регистрация: 22.03.2014 Сообщений: 6
		1
	Написать программу определения минимального элемента одномерного массива чисел 22.03.2014, 15:24. Показов 2880. Ответов 1 Метки нет (Все метки) Написать программу определения минимального элемента одномерного массива чисел, используя рекурсивную функцию, находящую минимум среди последних элементов массива, начиная с k- того. заранее огромное СПАСИИИБО)) __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Написать программу определения минимального элемента одномерного массива чисел

Решение