Ы маамммтттттngy s,,,,,,,,,,,C, xf

ListBox1.Clear;
Inteface bo’limiga massiv va ishlatiladigan o’zgaruvchilarni Var so’zidan keyin tavsiflaymiz.
A:Array[1..10] of integer;

k,I,maxx,minn: Integer;

s1,s2: String;
7.”Kiritish” tugmasini aktivlashtirish uchun uni ikki marta tez-tez bosib, kodlarni yozish oynasiga o’tamiz va quyidagilarni kiritamiz:
ListBox1.Items.Add(Edit1.text);

i:=i+1;

a[i]:=StrToInt(Edit1.text);

Edit1.SetFocus;
8.”Echish” tugmasini aktivlashtirish uchun uni ikki marta tez-tez bosib, kodlarni yozish oynasiga o’tamiz va quyidagilarni kiritamiz:

minn:=a[1];

maxx:=a[1];

For k:=1 to 10 do

Begin

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

If maxx

End;

Str(maxx:5,S1);

Str(minn:5,S2);

Memo1.Clear;

Memo1.Lines.Add(‘Eng kattasi=’+s1);

Memo1.Lines.Add(‘Eng kichigi =’+s2);
9.Kiritish fokusi Edit1 kiritish qatorida turishi uchun uni ikki marta bosib kodlarni yozish oynasiga o’tamiz va quyidagini kiritamiz:
If key=13 Then Button1.SetFocus;
10.Tuzilgan loyiha (proekt) ya’ni Project1 va Unit1 standart modul nomlarini mos nomlar bilan almashtirib saqlaymiz.

11.Yangi nom bilan saqlangan proekt, ya’ni ilova F9 tugmachasini bosish bilan ishga tushuriladi.

Ilova ishga tushirilganda uning quyidagi ko’rinishi ekranda namayon bo’ladi.


Massiv elementi qiymatlarini kiritib, “Echish” tugmasini bosamiz va natijada quyidagi natijaga ega bo’lamiz.

Tashkil qilingan modulning to’liq ko’rinishini keltiramiz.