МАССИВЫ

[Zaraaa]

помогите переделать в Stringrid. чтоб матрица отображалась в stringrid

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    lst1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
Var a:array[1..10,1..10] of byte;
      summ:array[1..10] of byte;
      i,j,m,n,max:integer;
      SummChet, SummNechet:integer;
begin

  m:=StrToInt(InputBox('ввод','m= ',''));
  n:=StrToInt(InputBox('ввод','n= ',''));
  for i:=1 to m do
     for j:=1 to n do begin
        a[i,j]:=StrToInt(InputBox('ввод','a['+IntToStr(i)+','+IntToStr(j)+']= ',''));
     end;
    for i:=1 to m do begin
    for j:=1 to n do begin
         Lst1.AddItem(IntToStr(a[i,j]),nil);
          summ[i]:=summ[i]+a[i,j];
    end;
    Lst1.AddItem('',nil);
   end;
   Lst1.AddItem('summa elementov kajdoi stroki: ',nil);
   max:=summ[1];
   for i:=1 to m do
   begin
        Lst1.AddItem(IntToStr(i)+' stroka: '+IntToStr(summ[i]),nil);
        if summ[i]>max then max:=summ[i];
        end;
   Lst1.AddItem('max summa:'+IntToStr(max),nil);
   Lst1.AddItem('pomenyali pervuyu stoku s poslednei: ',nil);
   for i := 1 to n do
  begin
    j := a[1, i];
    a[1, i] := a[m, i];
    a[m, i] := j;
  end;
  for i := 1 to m do
  begin
    for j := 1 to n do
      Lst1.AddItem(IntToStr(a[i,j]),nil);
    Lst1.AddItem('',nil);
  end;
  // сумма четных и нечетных элементов
  Lst1.AddItem('summa elementov 4etnih i ne4etnih 4isel: ',nil);
  SummChet := 0;
  SummNechet := 0;
  for i := 1 to m do
  for j := 1 to n do
  begin
  if (a[i, j] mod 2 = 0) then
  inc(SummChet, a[i, j])
  else
  inc(SummNechet, a[i, j]);
    end;
   Lst1.AddItem('summa chetnih: '+IntToStr(SummChet),nil);
   Lst1.AddItem('summa nechetnih: '+IntToStr(SummNechet),nil);
Lst1.AddItem(IntToStr(i)+' stroka: '+IntToStr(summ[i]),nil);
end;
end.

[Stilet]

Судя по всему мне, как автору, и пределывать )

With StringGrid1 do
  for i := 1 to RowCount-1 do
    for j := 1 to ColCount-1 do
      cells[i,j]:=IntToStr(a[i,j]),nil);

Это вставлять вместо циклов с Lst1.AddItem(IntToStr(a[i,j]),nil);

[Zaraaa]

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

Судя по всему мне, как автору, и пределывать )

With StringGrid1 do
  for i := 1 to RowCount-1 do
    for j := 1 to ColCount-1 do
      cells[i,j]:=IntToStr(a[i,j]),nil);

Это вставлять вместо циклов с Lst1.AddItem(IntToStr(a[i,j]),nil);

спасибо)