Матрица

const MaxSize=20;
 
var
  Form1: TForm1;
  Line,Column:integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  Line:=StrToInt(Edit1.Text);
  Column:=StrToInt(Edit2.Text);
  StringGrid1.RowCount:=Line+1;
  StringGrid1.ColCount:=Column+1;
  StringGrid2.RowCount:=Line+1;
  for i:=1 to Line do
    StringGrid1.Cells[0,i]:='Строка №'+IntToStr(i);
  for i:=1 to Column do
    StringGrid1.Cells[i,0]:='Столбец №'+IntToStr(i);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var Matrix:array[1..MaxSize,1..MaxSize] of extended;
    Massiv:array[1..MaxSize] of integer;
    Summ:extended;
    i,j:integer;
begin
  for i:=1 to Line do
    for j:=1 to Column do
      Matrix[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
  for i:=1 to Line do
    begin
      Summ:=0;
      for j:=1 to Column do
        Summ:=Summ+Matrix[i,j];
      if Summ=0 then
        Massiv[i]:=0
      else
        Massiv[i]:=1;
    end;
  for i:=1 to Line do
    StringGrid2.Cells[0,i]:=IntToStr(Massiv[i]);
end;
 
end.