[Delphi] нужно исправить ошибку. задача заключается в том, чтобы найти наименьший и наибольший элемент матрицы.

[bulgar]

var
  Form1: TForm1;
  A:array [1..100,1..200] of integer;
  M,N,I,J : Integer;
  imax,jmax,imin,jmin:Integer;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
strngrd1.Cells[0,0]:='ñòð.\ñòîëá.';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);
strngrd1.Cells[0,0]:='ñòð.\ñòîëá.';
M:=StrToInt(Edt1.Text);
N:=StrToInt(Edt2.Text);
strngrd1.RowCount:=M+1;
strngrd1.ColCount:=N+1;
for I:=1 to M+1 do
strngrd1.Cells[0,I]:=IntToStr(I);
for J:=1 to N+1 do
strngrd1.Cells[J,0]:=IntToStr(J);

end;

procedure TForm1.btn3Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
imax:=1;
jmax:=1;
imin:=1;
jmin:=1;
for I:=1 to M do
for J:=1 to N do
begin
A[i,j]:=StrToInt(strngrd1.Cells[j,i]);
if A[I,J]>A[imax,jmax] then
begin
imax:=I;
jmax:=J;
end
else
if A[I,J]<A[imin,jmin] then
begin
imin:=I;
jmin:=J;
Label3.Caption:=' íàèáîëüøåå = '+IntToStr(A[imax,jmax]);
Label4.Caption:=' íàèìåíüøåå = '+IntToStr(A[imin,jmin]);
end;
end;
end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[MansMI]

пишите mansmi@yandex.ru

[Larboss]

Пишите: larbossfreelance@yandex.ru

[WorldMaster]

где то скопипастили код и не понимаете как он работает??

[Вадим Мошев]

Возможно, автор уже получил решение: https://www.cyberforum.ru/delphi-beg...ad2459651.html

[Cuprum5]

Здравствуйте, Bulgar, если еще актуально то пишите, пожалуйста, мне на почту: sergeisky@yahoo.com