Нужно строку с минимальным элементом поменять местами со столбцом с максимальным элементом

@egrusel · Регистрация: 19.04.2017

Студворк — интернет-сервис помощи студентам

Кто может подсказать что тут не так?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=strtoint(spinedit1.text);
stringgrid1.ColCount:=n;
stringgrid2.colcount:=n;
m:=strtoint(spinedit1.text);
stringgrid1.RowCount:=m;
stringgrid2.Rowcount:=m;
min:=0;
max:=0;
 
for i:=1 to n do
for j:=1 to m do
b[i,j]:=strtoint(stringgrid1.Cells[i-1,j-1]);
 
for i:=1 to n do begin
for j:=1 to m do begin
  if b[i,j]<min then
    min:=b[i,j];
    e:=i;
    f:=j;
  if b[i,j]>max then
    max:=b[i,j];
    l:=i;
    s:=j;
  edit1.Text:=inttostr(min);
  edit2.Text:=inttostr(max);
end;
end;
 
 
 
for i:=1 to n do
for j:=1 to m do
StringGrid2.Cells[i-1,j-1]:=inttostr(b[i,j]);
 
 
end;
 
end.

@ZX Spectrum-128 · 19.04.2017, 20:23

В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим

@ZX Spectrum-128 6807 / 4565 / 4818 Регистрация: 05.06.2014 Сообщений: 22,438
	19.04.2017, 20:23	2
	В матрице А(6,6) найти строку с наименьшим элементом и поменять её со столбцом с наибольшим 1

Опции темы