Arkadaşlar öncelikle merhabalar
matris ile ilgili bi problemim var matematik bilgim zayıf ve delphi hakkında pek birşey bilmediğim için şu soruya cevap arıyorum.
Elemanlarını dışardan girerek n*n boyutlu bir matris oluşturunuz.Bu matrisin;
a.köşegenlerin ortalaması
b.köşegen dışı elemanların toplamını yazdırınız

Yaptığım araştırma sonucu şu kodlara ulaştım...
procedure TForm1.Button1Click(Sender: TObject);
var

 i,j,n:integer;
 t,t1:extended;
 m1x: array [1..100,1..100] of extended;
begin
 n:=strtoint(edit1.text);
 randomize;
 for i:=1 to n do
 for j:=1 to n do
  m1x[i,j]:=random(100)/100;

  StringGrid2.RowCount:=n+1;
  StringGrid2.ColCount:=n+1;
  for i:=1 to n do
  for j:=1 to n do
  StringGrid2.Cells[i,j]:= floattostr(m1x[i,j]);


  t:=0;t1:=0;
  for i:=1 to strtoint(edit1.Text) do
  for j:=1 to strtoint(edit1.Text) do
       if i=j then t:=t+m1x[i,j] else
       t1:=t1+m1x[i,j];

  t:=t/strtoint(edit1.Text);
  label3.Caption:='Köşegen ortalaması ='+floattostr(t);
  label4.Caption:='Köşegen dışı eleman toplamı ='+floattostr(t1);
end;

Bana bunu programa çevirmemde yardımcı olur musunuz

eyvallah saolasın ben hallettim bunu ama kalanlı bölme sorusunu çok uğraştım ama yapamadım hala...