悬赏求解:设有一个二维数组A(5,5),编程计算所有元素的和,所有靠边元素的和,两条对角线元素的和?
3个回答
展开全部
//因为没装vc 所以没实际编译过 见谅
#include<stdio.h>
void main()
{
int a[5][5];//二维数组A,假设已经存进去
int sum1,sum2,sum3,i,j;
sum1=sum2=sum3=0;
for(i=0;i<5;i++) //所有元素的和
for(j=0;j<5;j++)
sum1+=a[i][j];
for(i=0;i<5;i++) //所有靠边元素的和
for(j=0;j<5;j++)
if(i==0||j==0||i==4||j==4)
sum2+=a[i][j];
for(i=0;i<5;i++) //两条对角线元素的和
sum3+=a[i][4-i];
#include<stdio.h>
void main()
{
int a[5][5];//二维数组A,假设已经存进去
int sum1,sum2,sum3,i,j;
sum1=sum2=sum3=0;
for(i=0;i<5;i++) //所有元素的和
for(j=0;j<5;j++)
sum1+=a[i][j];
for(i=0;i<5;i++) //所有靠边元素的和
for(j=0;j<5;j++)
if(i==0||j==0||i==4||j==4)
sum2+=a[i][j];
for(i=0;i<5;i++) //两条对角线元素的和
sum3+=a[i][4-i];
展开全部
为什么要匿名?
VB的
Private Sub Form_Click()
Cls
Randomize
Dim a(5, 5) As Integer
For i = 0 To 5
For j = 0 To 5
a(i, j) = Int(Rnd * 9)
Print a(i, j) & ",";
Sum = Sum + a(i, j)
Next j
Print
Next i
Print "所有元素和为:" & Sum
'////////////
Sum = 0
For i = 0 To 5
Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i)
Next
Sum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5)
Print "所有靠边元素的和:" & Sum
'//////////////////////////////
Sum = 0
For i = 0 To 5
Sum = Sum + a(i, i) + a(i, 5 - i)
Next
Print "两条对角线元素的和为:" & Sum
End Sub
VB的
Private Sub Form_Click()
Cls
Randomize
Dim a(5, 5) As Integer
For i = 0 To 5
For j = 0 To 5
a(i, j) = Int(Rnd * 9)
Print a(i, j) & ",";
Sum = Sum + a(i, j)
Next j
Next i
Print "所有元素和为:" & Sum
'////////////
Sum = 0
For i = 0 To 5
Sum = Sum + a(i, 0) + a(i, 5) + a(0, i) + a(5, i)
Next
Sum = Sum - a(0, 0) - a(5, 0) - a(5, 5) - a(0, 5)
Print "所有靠边元素的和:" & Sum
'//////////////////////////////
Sum = 0
For i = 0 To 5
Sum = Sum + a(i, i) + a(i, 5 - i)
Next
Print "两条对角线元素的和为:" & Sum
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
C语言的吗?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询