[hrustnik]

Всем привет, у меня пару ошибок и нужна ваша помощь
1.Вычислить сумму элементов каждой строки матрицы А (n x m), определить наименьшее значение этих сумм и номер соответствующей строки.
радиобатон1- сам вожу
радиобатон2- рандом

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

procedure TForm1.Button1Click(Sender: TObject); begin  sum:=0;  memo1.lines.clear; begin with StringGrid1 do   for i:=FixedCols to ColCount-1 do   for j:=FixedRows to RowCount-1 do     Cells[i, j]:=''; end;     if RadioButton1.Checked=true then begin n:=strtoint(Edit1.Text); n1:=strtoint(Edit2.Text); if (n<2) or (n>10) or (n1<2) or (n1>10) then begin     Showmessage('Кол-во строк и столбцов не больше 10 и не меньше 2');     exit; end; for i:=0 to n do begin for j:=0 to n1 do begin x[i,j]:= strtoint(StringGrid1.Cells[i,j]); begin   sum:= sum + x[i,j];   Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum)); end; end; end; end;     if RadioButton2.Checked=true then begin randomize; n:=random(8)+ 2; n1:=random(8)+ 2; Edit1.Text:=inttostr(n+1); Edit2.Text:=inttostr(n1+1);   for i:=0 to n do begin for j:=0 to n1 do begin x[i+1,j+1]:= random(10)+2; StringGrid1.Cells[j,i]:= FormatFloat('0.00',x[i+1,j+1]); begin   sum:= sum + x[i,j];   Memo1.Lines.Add('Сумма элементов '+inttostr(i)+'-ой строки = '+inttostr(sum)); end; end;

MAD: пользуемся тегом code, а не quote.

1. когда работаем рандом то в memo идут неправильные данные
2. самому вообще не ввести, пишет ошибку
буду благодарен

[Alegun]

Сообщение от hrustnik

...Вычислить сумму элементов каждой строки матрицы А (n x m), определить наименьшее значение этих сумм и номер соответствующей строки...

Матрица Х должна быть уже заполнена

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

... var i,j,n:integer; tmp: array of integer; begin  Memo1.Clear;    SetLength(tmp, High(x)+1);    for i := Low(x) to High(x) do   begin    tmp[i]:= SumInt(x[i]);    Memo1.Lines.Add(IntToStr(i) + ': ' + IntToStr(tmp[i]));   end;    n:= MinIntValue(tmp);    for i := Low(tmp) to High(tmp) do if tmp[i] = n then   Memo1.Lines.Add('Минимальная сумма элементов ' + IntToStr(i) + '-ой строки = ' + IntToStr(tmp[i])); end;

З.Ы. Кстати, очистить ячейки стрингрида можно и так

Код:

1	with StringGrid1 do for i := FixedCols to ColCount-1 do Cols[i].Clear;

[hrustnik]

море ошибок и я ничего не понимаю
думаю дело в том, что у меня делфи xe3 (

[Alegun]

Какое море, всего несколько строк - в uses нужно Math добавить. Проверил, работает