Implementation

procedure TForm1.FormCreate(Sender: TObject);

begin // при создании формы – число строк, столбцов

StringGrid1.RowCount:=6; // на 1 больше строк массива

StringGrid1.ColCount:=6; // на 1 больше столбцов

StringGrid1.DefaultColWidth:=32; // ширина столбца

StringGrid2.RowCount:=6;

StringGrid2.ColCount:=6;

StringGrid2.DefaultColWidth:=32;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

var i,j:byte;

begin

For j:=1 to 5 do // Ввод массива по столбцам

For i:=1 to 5 do

a[j,i]:=StrToInt(StringGrid1.Cells[j,i]);

For j:=1 to 5 do // Вывод массива

For i:=1 to 5 do

begin

a[j,i]:=(i+j)*a[j,i];

StringGrid2.Cells[j,i]:=IntToStr(a[j,i]);

end;

end;