Как сделать чтобы в Label1 и Label2 выводило минимальное?
Form1: TForm1;
arr: array [0..4] of integer;
i,min, mass:integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
min:=arr[0];
For i:=0 to 4 do
if min > arr then
min:=arr;
for i := 0 to Length(arr) - 1 do
arr := StrToInt(Memo1.Lines);
Label1.Caption:=inttostr (min);
end;
end.
Как сделать чтобы в Label1 и Label2 выводило минимальное?
Типо
1
2
3
4
5
Минимальное 1 и 2