Помогите пожалуйста, как исправить ошибки?:( [Delphi] Массив вывести в StringGrid, вычислить и вывести среднее арифметическое каждой строки

[anna77777]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    OleContainer1: TOleContainer;
    StringGrid1: TStringGrid;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  const n=4; m=6;
  type matrix=array[1..n,1..m] of real;
var
  Form1: TForm1;
  a:matrix; SR:array[1..n] of real;

implementation

{$R *.dfm}

procedure TForm1.N1Click(Sender: TObject);
var i,j:byte;
begin for i:=1 to m do
      for j:=1 to n do if j>2 then
      a[i,j]:=2*(j/2-3.76)*Exp(ln(2)*i) else a[i,j]:=3.2*Exp(ln(2)*j)+i;
For i:=1 to n do begin
For j:=1 to m do begin
StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
end;
end;

procedure TForm1.N2Click(Sender: TObject);
  var i,j:byte;
begin{main program}
 for i:=1 to n do begin
 for j:=1 to m do begin
 SR[i]:=SR[i]+a[i,j];
 SR[i]:=SR[i]/m;
 end;
end;
 StringGrid1.Cells[6, i-1]:=IntToStr(SR);
end;


procedure TForm1.N3Click(Sender: TObject);
begin
Close
end;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

   For i:=1 to n do 
      For j:=1 to m do 
           StringGrid1.Cells[j-1,i-1]:=FloatToStr(a[i,j]);
end;

procedure TForm1.N2Click(Sender: TObject);
  var i,j : integer;
begin
   for i:=1 to n do begin
       SR[i]:=0;
       for j:=1 to m do 
           SR[i]:=SR[i]+a[i,j];
       SR[i]:=SR[i]/m;
   end;
   for i:=1 to n do
      StringGrid1.Cells[6, i-1]:=FloatToStr(SR[i]);
end;

[anna77777]

Спасибо огромное, очень выручили!!!

[Serge_Bliznykov]

Пожалуйста.

кстати, строчку

StringGrid1.Cells[6, i-1]:=FloatToStr(SR[i]);

логичнее заменить на

StringGrid1.Cells[m, i-1]:=FloatToStr(SR[i]);

[anna77777]

Учту