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

@Фински · Регистрация: 15.09.2019

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

@Puporev · 05.12.2019, 11:36

Pascal

type mas=array[1..50]of integer;
var a:mas;
    n,i,k:integer;
function Min(n,k:integer):integer;
var w:integer;
begin
if n>k+1 then
 begin
  w:=Min(n-1,k);
  if a[n]>w then Min:=w
  else Min:=a[n]
 end
else Min:=a[k]
end;
 
begin
randomize;
repeat
write('Введите размер массива от 2 до 50 n=');
readln(n);
until n in [2..50];
repeat
write('Введите номер элемента от 1 до ',n-1,' k=');
readln(k);
until k in [1..n-1];
writeln('Массив А:');
for i:=1 to n do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
write('Минимальный в интервале номеров [',k,'..',n,']=',Min(n,k));
end.

@Фински 0 / 0 / 0 Регистрация: 15.09.2019 Сообщений: 70
		1
	Напишите программу, которая определяет минимальное значение элементов одномерного массива, используя рекурсивную функцию 04.12.2019, 22:45. Показов 2379. Ответов 1 Метки pascal, pascal abc, pascal abc net, pascal abc.net (Все метки) Напишите программу, которая определяет минимальное значение элементов одномерного массива, используя рекурсивную функции, которая находит минимум среди последних элементов массива начиная с К. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы