Лабораторная работа: Создание и обработка линейного массива

if StrToInt (Cells[i, j])<min then min:=StrToInt (Cells[i, j]);

Edit1. Text:=IntToStr(Min);

End else Edit1. Text:='';

if CheckBox2. Checked then

with StringGrid1 do begin

max:=StrToInt (Cells[1,1]);

for i:=1 to ColCount‑1 do

for j:=1 to RowCount‑1 do

if StrToInt (Cells[i, j])>max then max:=StrToInt (Cells[i, j]);

Edit2. Text:=IntToStr(Max);

End else Edit2. Text:='';

end; end.