Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 200576
05.04.2021, 19:05
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Lazarus:
Описать функцию min для определения минимального элемента массива X с помощью рекурсии.

Обсуждение

давно
puporev
Профессор
401888
1232
05.04.2021, 19:50
общий
это ответ
Здравствуйте, Satori!
Код:
program Project1;
type mas=array of integer;
function Min(a:mas;n:integer):integer;
var w:integer;
begin
if n>0 then
 begin
  w:=Min(a,n-1);
  if a[n-1]>w then Min:=w
  else Min:=a[n-1]
 end
else Min:=a[0]
end;
var a:mas;
    n,i:integer;
begin
randomize;
write('Razmer masiva n=');
readln(n);
writeln('Massiv A:');
setlength(a,n);
for i:=0 to n-1 do
  begin
    a[i]:=random(20);
    write(a[i],' ');
  end;
writeln;
write('min=',Min(a,n));
readln
end.
Форма ответа