Произведение в матрице

[OnEDooM]

Задана случайным образом матрица NxN. Найти произведения суммы элементов главной диагонали и суммы элементов i-ой строки

[p51x]

И? Что не получается? Не знаете, что такое главная диагональ?

[OnEDooM]

procedure TForm1.Button1Click(Sender: TObject);
begin
n:=StrToInt(Edit1.Text);
Stringgrid1.ColCount:=n;
Stringgrid1.RowCount:=n;
for i:=0 to n do
for j:=0 to n do
Stringgrid1.cells[i,j]:=IntToStr(random(10));
end;

procedure TForm1.Button2Click(Sender: TObject);
var sg,si,p,k:integer;
a:array [0..20,0..20] of integer;
begin
Memo1.Clear;
k:=StrToInt(Edit2.Text);
sg:=0;
si:=0;
p:=1;
for i:=0 to n do
for j:=0 to n do
a[i,j]:=StrToInt(Stringgrid1.cells[j,i]);
for i:=0 to n-1 do
sg:=sg+a[i,i];
for j:=0 to n do
if (i=k)  then
si:=si+a[i,j];
p:=sg*si;
Memo1.Lines.Add('Сумма глав диаг='+Inttostr(sg));
Memo1.Lines.Add('Сумма i-ой строки='+IntToStr(Si));
Memo1.Lines.Add('Произведение='+IntToStr(p));
end;

Вопрос в том, что не считает нормально сумму элементов заданной строки i(В программе идет как переменная k)

[Аватар]

А если подумать, как правильно - циклы до n-1 или до n?

[p51x]

for j:=0 to n do
if (i=k)  then si:=si+a[i,j];

Чему здесь равно i?

[OnEDooM]

for i:=0 to n do
if (i=k)  then si:=si+a[i,j];

[p51x]

Хорошо. Чему равно j в a[i,j]? До сих пор не доходит, что условие не нужно?

[OnEDooM]

Всё спасибо дошло, программа работает