Дана матрица A(N, M). Найти ее наибольший элемент и номера строки и столбца, на пересечении которых он находится.

[GalaiAnton]

Дана матрица A(N, M). Найти ее наибольший элемент и номера строки и столбца, на пересечении которых он находится.

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    StringGrid1: TStringGrid;
    Label4: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure SpinEdit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var max,n,m,i,j,ii,jj:integer;
A:array[1..30,1..30] of Integer;
begin
N := SpinEdit1.Value; //количество строк
M := SpinEdit2.Value; //количество столбцов
StringGrid1.RowCount := N;
StringGrid1.ColCount := M;
for i:=1 to n do 
  for j:=1 to m do read(A[i,j]);
 max:=A[1,1]; ii:=1; jj:=1;
 for i:=1 to n do 
  for j:=1 to m do 
   if A[i,j]>max then
    begin 
     max:=A[i,j];
     ii:=i;
     jj:=j;
    label4.Caption:=('Максимальный элемент матрицы-'+IntToStr(max)+' находится на пересечении '+IntToStr(ii)+'-й строки и '+IntToStr(jj)+' столбца');
end;
end;

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
StringGrid1.RowCount := SpinEdit1.Value;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
StringGrid1.ColCount := SpinEdit2.Value;
end;

Ввожу числа нажимаю кнопку и оно мне выдает ошибку...
Помогите,пожалуйста,немного доработать программу...

[newerow1989]

Случайно не в этой строке?

for j:=1 to m do read(A[i,j]);

Возможно так?

for i:=1 to n do 
  for j:=1 to m do StringGrid1.Cells[j, i];

А зачем

StringGrid1.RowCount := N;
StringGrid1.ColCount := M;

если они указаны в процедурах SpinEdit1Change и SpinEdit2Change?

Я бы строку

label4.Caption:=('Максимальный элемент матрицы...

сместил на одну строку ниже (после end;)! Т.е.

end;
label4.Caption:=('Максимальный элемент матрицы-'+IntToStr(max)+' находится на пересечении '+IntToStr(ii)+'-й строки и '+IntToStr(jj)+' столбца');
end;

[GalaiAnton]

Сообщение от newerow1989

Случайно не в этой строке?

for j:=1 to m do read(A[i,j]);

Возможно так?

for i:=1 to n do 
  for j:=1 to m do StringGrid1.Cells[j, i];

А зачем

StringGrid1.RowCount := N;
StringGrid1.ColCount := M;

если они указаны в процедурах SpinEdit1Change и SpinEdit2Change?

Я бы строку

label4.Caption:=('Максимальный элемент матрицы...

сместил на одну строку ниже (после end;)! Т.е.

end;
label4.Caption:=('Максимальный элемент матрицы-'+IntToStr(max)+' находится на пересечении '+IntToStr(ii)+'-й строки и '+IntToStr(jj)+' столбца');
end;

Сделал,но оно мне всегда выдает,что максимальный элемент находится в 1 строке и 1 столбце

[newerow1989]

StringGrid1 заполнен числами?

[GalaiAnton]

Сообщение от newerow1989

StringGrid1 заполнен числами?

я его заполняю с клавиатуры...

[newerow1989]

А что пошаговое выполнение говорит (клавиша F7 или F8)?

[GalaiAnton]

Сообщение от newerow1989

А что пошаговое выполнение говорит (клавиша F7 или F8)?

Ничего плохого не говорит...все выполняется...Вот взгляните

[newerow1989]

for i:=1 to n-1 do//минус 1
  for j:=1 to m-1 do//минус 1
    A[i,j]:=StrToInt(StringGrid1.Cells[j, i]);//здесь присваиваем
 max:=A[1,1]; ii:=1; jj:=1;
 for i:=1 to n-1 do//минус 1
  for j:=1 to m-1 do//минус 1
   if A[i,j]>max then
    begin
     max:=A[i,j];
     ii:=i;
     jj:=j;
end;

[GalaiAnton]

Сообщение от newerow1989

for i:=1 to n-1 do//минус 1
  for j:=1 to m-1 do//минус 1
    A[i,j]:=StrToInt(StringGrid1.Cells[j, i]);//здесь присваиваем
 max:=A[1,1]; ii:=1; jj:=1;
 for i:=1 to n-1 do//минус 1
  for j:=1 to m-1 do//минус 1
   if A[i,j]>max then
    begin
     max:=A[i,j];
     ii:=i;
     jj:=j;
end;

Благодарю вас,все работает!
А для того,чтобы организовать ввод массива из файла,нужно создать кнопку Создать и Открыть,сначала создать массив,а затем его открыть,я так понимаю?

[newerow1989]

Пожалуйста!

я так понимаю?

- Да.