vik
Новичок
|
     
В массиве MxN сменить знаки на противоположные у минимальных элементов тех столбцов, которые не содержат отрицательных значений.
Вот такая сортировка у меня получилась, не могу найти ошибку(((
procedure TForm1.btn2Click(Sender: TObject);
var
p,k,l,IndexMin:integer;
Flag:boolean;
min:extended;
begin
for i:=1 to M do
for j:=1 to N do begin
a[i,j]:=StrToFloat(strngrd1.Cells[i,j]);
end;
for i:=1 to M do
begin
Flag:=false;
min:=a[1,i];
IndexMin:=1;
for j:=1 to n do
begin
if a[j,i]<min then
begin
min :=a[j,i];
IndexMin:=j;
end;
if a[j,i]<0 then Flag:=true;
end;
if Flag then a[IndexMin,i]:=-a[IndexMin,i];
end;
for i:=1 to M do
for j:=1 to N do
strngrd2.Cells[i,j]:=FloatToStr(a[i,j]);
end;
|
Форум
Delphi
