Лидеры рейтинга

ID: 226425

Konstantin Shvetski

Модератор

769

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

343

Россия, пос. Теплоозёрск, ЕАО


ID: 401284

Михаил Александров

Академик

278

Россия, Санкт-Петербург


ID: 325460

CradleA

Мастер-Эксперт

209

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

158

Беларусь, Гомель


ID: 400815

alexleonsm

6-й класс

130


ID: 400669

epimkin

Профессионал

120


8.8.15

09.05.2021

JS: 2.8.21
CSS: 4.5.5
jQuery: 3.6.0
DataForLocalStorage: 2021-05-15 03:46:17-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 200576

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Satori (Посетитель)
Дата: 05.04.2021, 19:05 Консультация закрыта
Поступило ответов: 1

Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Lazarus:
Описать функцию min для определения минимального элемента массива X с помощью рекурсии.

Ответ # 280908 от puporev
Здравствуйте, 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.             

puporev

Профессор
05.04.2021, 19:50
Мини-форум консультации # 200576

Нет сообщений в мини-форуме

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 111

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 74

Степанов Иван /REDDS

4-й класс

Рейтинг: 1

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0