Написать программу на языке программирования для задания: найти сумму элементов столбца и строки массива, на пересечении которых находится максимальный элемент. Форма должна содержать компоненты для отображения исходного массива и результата.
Пример решения –
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var i,j:byte;
begin
randomize;
with stringgrid1 do
for i:=0 to ColCount-1 do
for j:=0 to RowCount-1 do
cells[i,j]:=inttostr(random(100)); end;
procedure TForm1.Button2Click(Sender: TObject);
var i,j,max,c,r:integer;
begin
max:=-1;
with stringgrid1 do
for i:=0 to ColCount-1 do
for j:=0 to RowCount-1 do
if strtoint(cells[i,j])>max then
begin
max:=strtoint(cells[i,j]);
c:=i; r:=j;
end;
max:=0;
with stringgrid1 do
for i:=0 to ColCount-1 do
for j:=0 to RowCount-1 do
if (i=c)or(j=r) then max:=max+strtoint(cells[i,j]);
edit1.text:=inttostr(max);
end;
end.
