Delphi tilida

If minn>a[k] Then Minn:=a[k]; 
If maxx

9.Kiritish fokusi Editl kiritish qatorida turishi uchun uni ikki marta 
bosib kodlarni yozish oynasiga o‘tamiz va quyidagini kiritamiz: 

10.Tuzilgan loyiha (npoeK T) ya’ni Projectl va Unitl standart modul 
nomlarini mos nomlar bilan almashtirib saqlaymiz. 
11.Yangi nombilan saqlanganproyekt, ya’ni ilova F9 tugmachasini 
bosish bilan ishga tushiriladi. 
Ilova ishga tushirilganda uning quyidagi ko‘rinishi ekranda 
namoyon boladi. 
1.f Fnml 
Ma-i-2i'.'dan eng katta va eng kichik eleinentaitopish 

.. j t t m — \ 

1 

Massiv elementining qiymatlarini kiritib, «Yechish» tugmasini 
bosamiz va quyidagi natijaga ega bolamiz. 

ufFmtil 

Masstvdan eng katta va eng kichik clementni 

F
|- in| :N 
3 

22 

89 

ListBoxl: TListBox; 
Buttonl: TButton; 
Button2: TButton; 
Editl: TEdit; 
Memol: TMemo; 
Labell: TLabel; 
procedure FormCreate(Sender: TObject); 
procedure ButtonlClick(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure EditlKeyDown(Sender: TObject;var key: Word; 

ListBoxl.Items.Add(Editl.text);