Daca precizai in intrebare te ajutam... acum banuiesc ca daca iti scriu e prea tarziu... oricum:
Faci suma lor :
For i:=1 to n do s:=s+a[i, i];
Si suma o imparti la numarul de elemente : m:=s/n;
Tine minte : m trebuie sa fie declarat sus de tip real, nu integer!
anonim_4396 întreabă: