写一个程序球3*3矩阵二维数组上三角元素和

main()
{
int i,j;
int num=0;
int numarray[3][3]={1,2,3,4,5,6,7,8,9};
for(i=0;i<3;i++)
for(j=0;j<3-i;j++)
{ num+=numarray[i][j];
}
printf("%d",num);
getch();
}

pascal语言的：
program ex;
type
sz=array[1..3,1..3]of byte;
var
s:sz;
j,k,g:byte;
begin
for j:=1 to 3 do
for k:=1 to 3 do
read(s[j,k]);
g:=0;
for j:=1 to 3 do
for k:=1 to (3-j+1) do
g:=g+s[j,k];
writeln(g);
readln;
end.

随手打的没编译