Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 6489
Последний выпуск: 19.06.2015

Как сделать чтобы в Label1 и Label2 выводило минимальное?

99K
20 июня
Sonya123456789
1 / / 20.06.2018
var
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
60K
06 июля
ЗАРАБОТОК КРИПТОВАЛЮТЫ
206 / / 06.07.2018
____________________
Заработок от 20 000 рублей в день !!!
- Вам нужен готовый, уже настроенный метод заработка?
- Без сложных курсов, в которых вы не можете разобраться.
- Без рутинной работы.
- Без обмана и чтобы деньги были достойные.
- Именно готовый заработок, а не бесполезный курс!
Подробности на сaйте http://mod-servis.ru

____________________
Заработок от 20 000 рублей в день !!!

- Вам нужен готовый, уже настроенный метод заработка?
- Без сложных курсов, в которых вы не можете разобраться.
- Без рутинной работы.
- Без обмана и чтобы деньги были достойные.
- Именно готовый заработок, а не бесполезный курс!
Подробности на сaйте http://mod-servis.ru

____________________

76463

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог