от -20 до 20. Требуется:. Найти сумму элементов главной диагонали матрицы

[luchik098]

Двумерный целочисленный массив A(m,n) задается с экрана либо генерируется в пределах от -20 до 20. Требуется:. Найти сумму элементов главной диагонали матрицы.Нужно записать на Паскале и С++.Заранее спасибо)

[Stilet]

var a:array[1..m,1..n] of integer;sum,i,j:integer;
begin
 for i:=1 to m do for j:=1 to m do begin readln(a[i,j]); if i=j then sum:=sum+a[i,j]; end;
 write(sum);readln;
end.

{
  int a[m][n];
  for(int i=0;i<m;i++) for(int j=0;j<n;j++) {scanf("%d",&a[i][j]); sum+=(i=j)?a[i][j]:0;}
  printf("\n%d",sum);
}

Подходит?