[Alegun]

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

...Программа работает, но считает неправильно...

Вроде это суммирует правильно, проверьте

Код:

var
  SG1  : array [0..4, 0..3] of integer =
      (( 34, -23,  48,  47),
      ( -14,  29,  8 ,  37),
      (  46,  13, -12,  41),
      ( -3 ,  17,  38,  5 ),
      ( -11, -22,  18, -6));


procedure TForm1.Button1Click(Sender: TObject);
var
Col, Row: integer;
begin

 for Row:= 0 to StringGrid1.RowCount-1 do //  Заполнение грида

  for Col:= 0 to StringGrid1.ColCount-1 do
   StringGrid1.Cells[Col, Row]:= IntToStr(SG1[Row, Col]);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
Col, Row, Sum: integer;
begin

   for Row := 0 to StringGrid1.RowCount-1 do   

    begin
     Sum:= 0;

      for Col := 0 to StringGrid1.ColCount-1 do // Сложение всех колонок
       Sum:= Sum + StrToInt(StringGrid1.Cells[Col, Row]);

     StringGrid2.Cells[0, Row]:= IntToStr(Sum);
    end;
end;