[Brons14]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
a: array[1..10,1..10] of integer;
b: array[1..10,1..10] of integer;
c: array[1..10,1..10] of integer;
i,j: integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do

a[1,1]:=StrToInt(Edit1.Text);
a[1,2]:=StrToInt(Edit2.Text);
a[1,3]:=StrToInt(Edit3.Text);
a[2,1]:=StrToInt(Edit4.Text);
a[2,2]:=StrToInt(Edit5.Text);
a[2,3]:=StrToInt(Edit6.Text);
a[3,1]:=StrToInt(Edit7.Text);
a[3,2]:=StrToInt(Edit8.Text);
a[3,3]:=StrToInt(Edit9.Text);

b[1,1]:=StrToInt(Edit10.Text);
b[1,2]:=StrToInt(Edit11.Text);
b[1,3]:=StrToInt(Edit12.Text);
b[2,1]:=StrToInt(Edit13.Text);
b[2,2]:=StrToInt(Edit14.Text);
b[2,3]:=StrToInt(Edit15.Text);
b[3,1]:=StrToInt(Edit16.Text);
b[3,2]:=StrToInt(Edit17.Text);
b[3,3]:=StrToInt(Edit18.Text);

c[i,j]:=a[i,j]+b[i,j];
c[1,1]:=StrToInt(Edit1.Text);
c[1,2]:=StrToInt(Edit2.Text);
c[1,3]:=StrToInt(Edit3.Text);
c[2,1]:=StrToInt(Edit4.Text);
c[2,2]:=StrToInt(Edit5.Text);
c[2,3]:=StrToInt(Edit6.Text);
c[3,1]:=StrToInt(Edit7.Text);
c[3,2]:=StrToInt(Edit8.Text);
c[3,3]:=StrToInt(Edit9.Text);

это все что я смог и полагаю это даже близко не стоит с правильным решением( как мне подсказали, это должно работать, но я не знаю как дальше присвоить действие кнопке, что бы при нажатии массивы складывались