| ← Апрель 2021 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
11
|
|
|
13
|
14
|
15
|
16
|
17
|
18
|
|
|
19
|
20
|
21
|
22
|
23
|
24
|
25
|
|
26
|
27
|
28
|
29
|
30
|
||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Lazarus:
Дата отправки: 05.04.2021, 19:05 Консультирует 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.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
