编写程序，建立并输出一个10*10的矩阵,矩阵两条对角线元素为1,其余元素为0.

1 0 0 0 0 0 0 0 0 1
0 1 0 0 0 0 0 0 1 0
0 0 1 0 0 0 0 1 0 0
0 0 0 1 0 0 1 0 0 0
0 0 0 0 1 1 0 0 0 0
0 0 0 0 1 1 0 0 0 0
0 0 0 1 0 0 1 0 0 0
0 0 1 0 0 0 0 1 0 0
0 1 0 0 0 0 0 0 1 0
1 0 0 0 0 0 0 0 0 1这是题目的实图

#include <stdio.h>
int main()
{
int i ,j;
int a[10][10];
for(i=0;i<10;i++)
for(j=0;j<10;j++)
{
a[i][j]=0;
if(i==(9-j)&&j==(9-i))a[i][j]=1;
if(i==j)a[i][j]=1;
}
for(i=0;i<10;i++)
{
for(j=0;j<10;j++)
{
printf("%i ",a[i][j]);
}
printf("\n");
}
getch();
}

PASCAL程序如下：

program Noname3;
var i,p:integer;
ten:array[1..10,1..10]of integer;
begin
for i:=1 to 10 do begin
ten[i,i]:=1;
ten[i,11-i]:=1;
end;
for i:=1 to 10 do begin
for p:=1 to 10 do
write (ten[i,p]:3);
writeln;
end;
readln;
end.

program djx;
var
i,j:integer;
a[1..10,1..10]:array of integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if i=j