Найти сумму по столбцам и определить максимум.

[Fri]

Добрый день. Хочу найти сумму по столбцам и определить из этой суммы максимум. Я заношу сумму в одномерный массив и там уже ищу max элемент, но у меня почему-то выводит только одни нули. Вот код:

type
  matr=array[1..6,1..5] of Integer; //Исходная матрица
  mas=array[1..10] of Integer; //Массив куда буду записывать сумму

var
 n,m,i,j:Integer;
 max:Integer;
 A:matr;
 S:mas;
 procedure SUMA( n,m:Integer; A:matr; var S:mas); //Процедура нахождения суммы по столбцам
 var i,j:Integer;
 begin
   for j:=0 to m do
   S[j]:=0;
   for i:=0 to n do

   S[j]:=S[j]+A[i][j];
 end;
begin
 n:=StrToInt(Edit1.Text);
  m:=StrToInt(Edit2.Text);
  for i:=0 to n do
  for j:=0 to m do
  A[i][j]:=StrToIntDef(Trim(StringGrid1.Cells[j,i]),0);
  SUMA(n,m,A,S);
  for j:=0 to m do
  StringGrid2.Cells[j+1,0]:=IntToStr(S[j]); //Передаю вывод массива в другой СтрингГрид
  max:=S[1]; // Дальше нахожу максимум уже из одномерного массива.
  for j:=1 to m do
  if max<S[j] then
  max:=S[j];
  Label1.Caption:=IntToStr(max);
end;

end.

Почему выводит 0-ли? Я как-то не правильно вывожу или считаю?

[ByAlex]

Используй Debug или скинь файлы проекта, я посмотрю что там.

[Fri]

Вот исходник

[ByAlex]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    StringGrid2: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
type
  matr=array[1..6,1..5] of Integer;
  mas=array[1..10] of Integer;
var
  n,m,i,j:Integer;
  max:Integer;
  A:matr;
  S:mas;
procedure SUMA( n,m:Integer; A:matr; var S:mas);
var
  Sum, i,j:Integer;
begin
Sum:=0;
  for i := 1 to n do
  begin
    for j := 1 to m do
      Sum:=sum+A[j,i];
    S[i]:=sum;
    sum:=0;
  end;
end;
begin
  n:=StrToInt(Edit1.Text);
  m:=StrToInt(Edit2.Text);
  for i:=1 to m do
    for j:=1 to n do
      A[i][j]:=StrToIntDef(Trim(StringGrid1.Cells[j,i]),0);
  SUMA(n,m,A,S);
  for j:=1 to n do
    StringGrid2.Cells[j,0]:=IntToStr(S[j]);
  max:=S[1];
  for j:=1 to n do
    if max<S[j] then
      max:=S[j];
  Label1.Caption:=IntToStr(max);
end;
end.

Вот так, проверь. Если помогло, жми весы.

[Fri]

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

[CODE]unit Unit1;


Sum:=sum+A[j,i];
S[i]:=sum;
sum:=0;

Ааа точно я же забыл саму сумму передать...Невнимательность меня губит Спасибо, жму на весы)