Тәжірибелік- зерханалық жұмыс №20

A(N, N) сандық массивінің элементтерін StringGrid1 кестесінен оқимыз.

A(N, N) сандық массивінің ең үлкен элементін Button2 компонентіне шығарамыз.

Формаға StringGrid1, Button1, Button2 компоненттерін қоямыз. Есеп әдісін Button1 компонентінің OnClick оқиғасында ұйымдастырамыз. StringGrid компонентінің қасиеттерінің мәні кестеде көрсетілген:

ColCount	Кестедегі бағандар саны.
RowCount	Кестедегі жолдар саны.
DefaultColWidth	Кесте бағанының ені.
Cells (ACol, ARow)	Ұяшық мәнін анықтайды
Options/ go Editing	True енгізілген. Бұл жағдайда кестені редакциялауға болады.

procedure TForm1.Button1Click(Sender: TObject);

var a:array[1..3,1..3] of integer; i,j,max:integer; begin for i:=1 to 3 do for j:=1 to 3 do

a[i,j]:=strtoint(StringGrid1.Cells[i,j]);

max:=a[1,1]; for i:=1 to 3 do for j:=1 to 3 do

if max