двумерный массив, нати макс.сумму по столбцам

[mau6]

Всем доброго времени суток.

Есть такая задача: Вычислить суммы столбцов двумерного массива, максимальную сумму вывести на экран.

Есть такой текст:

procedure TForm1.Button1Click(Sender: TObject);

var

i, j: integer;
s, max: real; //s - summa, max - maksimalnaya summa

begin

max:=0;
for i:=1 to SG1.ColCount-1 do
if SG1.Cells[i,j] <> '' then
begin
s:=0;
for j:=1 to SG1.RowCount-1 do
s:= s + strtofloat(SG1.Cells[i,j]);
end;
if max < s then
max:=s;
showmessage ('maks sum ravna ' + floattostr(max));

end;

end.

Ошибок не выдает, но результат при любых значениях ячеек string grid один, примерно так - 7,904....+Е04.

В чем проблема может быть?

[Карась]

В начле програмы обнулите все переменые. И чтото алгоритм какойто кривенький...

[mau6]

переменная max обнуляется в начале, s - обнуляется перед каждым новым столбцом.
предложите, пожалуйста, некривенький алгоритм, очень хочется, чтобы заработало наконец.
спасибо.

[Sweta]

Какие данные у Вас записаны в массиве? Это кусочек программы?

[Карась]

Для начала надо рандомно заполнить. Событие ОнКреат формы:

Randomize;
For y := 1 To 4 Do
  For x := 1 To 4 do
    SG.Cells[x,y] := IntToStr(Random(5) + 1);

Теперь найдём суммы столбцов:

For y := 1 To 4 Do
  Begin
    For x := 1 To 4 Do
      S := S + StrToInt(SG.Cells[y,x]);
    SG.Cells[y, 0] := IntToStr(S);
    S := 0;
  End;

Теперь осталось только найти максимум и "вывести на экран"


x, y, S : Integer;

[mau6]

все получилось, спасибо