With StringGrid1 do

for i:=1 to m do

for j:=1 to n do Cells[j,i]:=IntToStr(a[i,j]);

max:=a[1,1]; imax:=1; jmax:=1;

for i:=1 to m do

for j:=1 to n do

if a[i,j] > max then

begin max:=a[i,j];imax:=1;jmax:=1 end;

Label8.Caption:='max='+IntToStr(max);

Label9.Caption:='imax='+IntToStr(imax);

Label10.Caption:='jmax='+IntToStr(jmax);end;

 

Сценарий выполнения программы:

1. Запустить программу (Run).

2. Ввести в поле Edit1 значение m - количество строк матрицы 6.

3. Ввести в поле Edit2 значение n - количество столбцов матрицы n.

4. Ввести в поле Edit3mn элементов матрицы, отделяя одно число от другого пробелом.

5. Нажать кнопку “Расчет”.

6. Проанализировать появившиеся результаты (рисунок выше).

7. Для завершения работы нажать кнопку “Выход”.