delphi. как вывести минимальную строку и ее номер в memo (первокурсник2)

[hrustnik]

спасибо что поомгли в прошлой теме, но сейчас запутался как выести минимальную строку и ее номер в memo

begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);

With StringGrid1 do begin
 RowCount:=n+1;ColCount:=n1+1;
 for i:=0 to n do begin
  sum:=0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]);
   sum:= sum + x[i+1,j+1];
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+inttostr(sum));
 end;
end;
end;

end;

[XE5]

Почитай, и подумай, что отражает твоё название темы.

[Stilet]

как выести минимальную строку и ее номер в memo

Ну берешь ложку. Тарелку. На нее равнораспределенно высыпаешь свой код. Ставишь в микроволновку мин на 5. Потом поливаешь кетчупом и выедаешь )

сейчас запутался

А понятие "минимальную строку" это по твоему просто и понятно?
Ладно, стелепатирую.

 for i:=0 to n do begin
  sum:=0; 
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   ...
  end;
  Objects[0,n]:=TObject(sum);
...

Так ты заставишь грид запомнить суммы.
А далее простым циклом для поиска минимального

  i:=0
  for j:=1 to n do begin   if integer(Objects[0,j])<Objects[0,i] then i:=j;
  Memo1.Lines.Add(inttostr(integer(Objects[0,i])));

[Poma][a]

Ну берешь ложку. Тарелку. На нее равнораспределенно высыпаешь свой код. Ставишь в микроволновку мин на 5. Потом поливаешь кетчупом и выедаешь )

Ну или так..

[Stilet]

Ох и жуть...

[hrustnik]

не очень разобрался с вашим кодом
вот мой и я так и не разобрался что мне делать (

begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);

With StringGrid1 do begin
 RowCount:=n+1;ColCount:=n1+1;
 for i:=0 to n do begin
  sum:=0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   Cells[j,i]:= IntToStr(x[i+1,j+1]);
   sum:= sum + x[i+1,j+1];
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+inttostr(sum));
 end;
end;
end;

[Serge_Bliznykov]

код, конечно, уже похож на рабочий, но, на мой взгляд, далёк от нормального...
(особенно раздражает n+1 n1+1 )

ок.

попробуйте дописать код так:

begin
randomize;
n:=random(8)+ 2;
n1:=random(8)+ 2;
Edit1.Text:=inttostr(n+1);
Edit2.Text:=inttostr(n1+1);

NomerStrokiMax := -1;

With StringGrid1 do begin
 RowCount:=n+1;ColCount:=n1+1;
 for i:=0 to n do begin
  sum:=0;
  for j:=0 to n1 do begin
   x[i+1,j+1]:= random(10)+2;
   Cells[j,i]:= IntToStr(x[i+1,j+1]);
   sum:= sum + x[i+1,j+1];
  end;
  Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+inttostr(sum));
  if NomerStrokiMax<0 then begin
        NomerStrokiMax :=  i+1;
        MaxSum := sum; 
  end
  else
     if sum<MaxSum then begin
        NomerStrokiMax :=  i+1;
        MaxSum := sum; 
  end;
 end;

  Memo1.Lines.Add('Минимальная сумма элементов находится в строке '+inttostr(NomerStrokiMax)+' и равна  '+inttostr(MaxSum));

end;
end;

не забудьте описать целочисленные переменные NomerStrokiMax и MaxSum