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. Для завершения работы нажать кнопку “Выход”.