编写一个程序,实现以下功能:定义一个有10个元素的一维数组,在程序运行期间,输入数组中的各个元素, 5
4个回答
展开全部
代码会有点多。键盘输入嘛 输入一个然后就得到一个String ,再转化成Integer 放到数组里面,然后循环数组得到10个值的和,除以10就是平均数了,再用Arrays.sort()方法,这个方法会将数组升序排序,取第一个值就是最小值了,取最后一个值就是最大值了、
不知道你听明白了没?如果要代码你就追问一下,我给你写出来
我是用java语言写哈
不知道你听明白了没?如果要代码你就追问一下,我给你写出来
我是用java语言写哈
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub Command1_Click()
Dim a(0 To 9) As Integer
Dim min As Integer
Dim max As Integer
Dim av As Integer
Dim i As Integer
For i = 0 To 9
a(i)=val(inputbox("第" & i+1 & "个数"))
if i=0 then
min = a(0)
max = a(0)
end if
av = av + a(i)
If a(i) < min Then min = a(i)
If a(i) > max Then max = a(i)
Next i
av = av / 10
Text1.Text = Text1.Text + "最大数=" + CStr(max) + vbCrLf
Text1.Text = Text1.Text + "最小数=" + CStr(min) + vbCrLf
Text1.Text = Text1.Text + "平均数=" + CStr(av) + vbCrLf
End Sub
Dim a(0 To 9) As Integer
Dim min As Integer
Dim max As Integer
Dim av As Integer
Dim i As Integer
For i = 0 To 9
a(i)=val(inputbox("第" & i+1 & "个数"))
if i=0 then
min = a(0)
max = a(0)
end if
av = av + a(i)
If a(i) < min Then min = a(i)
If a(i) > max Then max = a(i)
Next i
av = av / 10
Text1.Text = Text1.Text + "最大数=" + CStr(max) + vbCrLf
Text1.Text = Text1.Text + "最小数=" + CStr(min) + vbCrLf
Text1.Text = Text1.Text + "平均数=" + CStr(av) + vbCrLf
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim a(10) as single
a(1)=inputbox("请输入数值")
print a(1);
pj=a(1)
zd=a(1)
zx=a(1)
for i=2 to 10
a(i)=inputbox("请输入数值")
pj=pj+a(i)
print a(i);
if a(i)>zd then
zd=a(i)
end if
if a(i)<zx then
zx=a(i)
end if
next i
print
print "平均值:";pj/10,"最大值:";zd,"最小值:";zx
a(1)=inputbox("请输入数值")
print a(1);
pj=a(1)
zd=a(1)
zx=a(1)
for i=2 to 10
a(i)=inputbox("请输入数值")
pj=pj+a(i)
print a(i);
if a(i)>zd then
zd=a(i)
end if
if a(i)<zx then
zx=a(i)
end if
next i
print "平均值:";pj/10,"最大值:";zd,"最小值:";zx
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
貌似这道题做过很多次了、、
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询