Товарищи, в чем ошибка?

[robin39]

Народ, почему выдает 0 при расчете главной диагонали. Где я накасячил?

var
Form1: TForm1;
A: array of array of Integer; //исходные массива
Ai, Aj: Byte; // размеры исходных данных
implementation

{$R *.dfm}


procedure TForm1.install();
var
i,j: Byte;
begin
Ai:= StrToInt(edt1.text);
Aj:= Ai;
SetLength(A,Ai,Aj);


For i:=0 to (Ai-1) do
For j:=0 to (Aj-1) do
A[i,j]:=Random(10)-Random(10);
end;


procedure TForm1.print();
var
i,j: Byte;
begin
For i:=0 to (Ai-1) do
For j:=0 to (Aj-1) do
stringrd1.Cells[j,i]:=IntToStr(A[i,j]);
end;


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

procedure TForm1.btn2Click(Sender: TObject);
begin
edt1.Text:='';


end;

procedure TForm1.btn1Click(Sender: TObject);
const N=50;
var
A:array[1..N,1..N] of Integer;
i,j,diag1: Integer;
begin
install();

diag1:=1;
for i:=1 to N do for j:=1 to N do if(i=j)
then diag1:=diag1*A[i,j];


print();
edt2.Text:= IntToStr(diag1);

end;
end.

[unbanned]

A: array of array of Integer;

эмм... это типо двумерный массив???

[TinMan]

Если хоть один элемент диагонали равен 0, то произведение будет 0. При размере матрицы 10х10 вероятность этого, думаю, заметно больше половины.

А при таком вот заполнении:
A[i,j]:=Random(10)-Random(10);
- кучность к нулю повышенная. Значит, вероятность обнаружения нуля на главной диагонали еще больше.

ПОпробуй изменить заполнение на
A[i,j]:=Random(10)+1;
Если проблема не уйдет - пиши.
Но только тогда у тебя появится другая проблема: преполнение diag1 )).

[TinMan]

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

A: array of array of Integer;

эмм... это типо двумерный массив???

Конечно. Обычный динамический массив.

[robin39]

да дело в том, что даже при положительных результатах, выдает 0.

[robin39]

И спасибо за совет A[i,j]:=Random(10)+1;. Действительно так лучше будет