RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Здравствуйте! Пожалуйста, нужна помощь в решении задачи на Delphi:
Дата отправки: 22.03.2021, 22:09 Консультирует puporev (Профессор): Здравствуйте, Jin! Код {$R *.dfm}
const n=20;
type mas=array[1..n] of integer;
function my_min(x:mas):integer;
var i:integer;
begin
result:=x[1];
for i:=2 to n do
if x[i]<result then result:=x[i];
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
with StringGrid1 do
begin
fixedcols:=0;
fixedrows:=0;
rowcount:=1;
colcount:=n;
defaultcolwidth:=30;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:mas;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=-10+random(21);
StringGrid1.Cells[i-1,0]:=inttostr(a[i]);
end;
Label2.Caption:='Минимальный элемент массива='+inttostr(my_min(a));
end;
Пример формы
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
Прикреплённый файл: 
| В избранное | ||
