编写程序：求1~100之间能被3整除的所有数的和，并输出这些数的平均值

#includeint main(){ int i, sum=0, n=0; double p; for(i=1; i<100; i++) if(i%3==0){ sum+=i; n++; } p=(double)sum/n; printf("和为%d,平均值为%lf
",sum,p); return 0;}程序结果如下：

option explicit
option base 1

dim a(10),sum%,m%,i%
sum = 0
print “一维数组为”;
for i = 1 to 10
a(i)=int(rnd*100)+1
print a(i)
sum =sum +a(i)
next i
print "十个元素之和为：";sum
print "十个元素的平均值为";sum/10

<%
'1.编写程序，生成有100个元素的一维数组，求其中所有偶数的平均值
dim arr(99)
dim sum, n, i
sum = 0
n = 0
response.Write("100个1000以内的随机正整数：")
randomize
for i = 0 to 99
if(i mod 10 = 0) then response.Write("<br />")
arr(i) = int(rnd() * 1000 + 1)'生成1000以内的随机整数
response.Write(arr(i) & ",")

if arr(i) mod 2 = 0 then
sum = sum + arr(i)
n = n + 1
end if
next
response.Write("<br />所有偶数的平均值是" & sum / n)
%>

<%
'2.编写程序，生成10行10列二维数组，并按行列方式输出，求其最大值。
dim arr_2(9, 9)
dim max
max = 0
randomize
for i = 0 to 9
for j = 0 to 9
arr_2(i, j) = int(rnd() * 1000 + 1)'生成1000以内的随机整数
response.Write(arr_2(i, j) & ",")

if arr_2(i, j) > max then
max = arr_2(i, j)
end if
next
response.Write("<br />")
next
response.Write("<br />最大的数是" & max)
%>

<%
'3.编写能求n!的函数fact()，输入n，调用函数fact()
function fact(n)
if not isnumeric(n) then '不是数字
fact = -1
exit function
end if
if int(n) <> n then '不是整数
fact = -1
exit function
end if
if n < 0 then '不是正整数
fact = -1
exit function
end if
if n = 0 or n = 1 then
fact = 1
exit function
end if

dim factorial
factorial = 1
for i = 2 to n
factorial = factorial * i
next
fact = factorial

'也可以用递归
'fact = n * fact(n-1)

end function
response.Write(fact(10))
%>

用VB语言编写程序,生成100个元素的一维数组,输入变量X,将数组中与X值...
假设生成100个1到100 的整数 为例来说明 Private Sub Command1_Click()Dim arr(100)For i = 0 To 99 Randomize arr(i) = Int(Rnd * 90) + 10 If i Mod 5 = 0 Then Print End If Print arr(i),Next Print Dim X As Integer X = Val(InputBox("请输入一个1到100之间的整数"))...

定义一个包含100个元素的一维整型数组a,其中元素a[i]的值为2i+1,请...
} printf("%n",n); \/\/奇数的个数n return 0;} 希望能帮到你

定义100个元素的一维数组
a[M];for( ; i < M; i++){cin>>a[i];\/\/输入元素}int j = 0;for(; j < M; j ++){cout<<a[j]<<" ";\/\/输出元素}cout<<endl;int k , MAX = 0;\/\/定义整型变量MAX为最大值，并且进行初始化为0；for(k = 0;

java编译一段代码,定义一个100个元素的一维数组,并给每一个元素赋值,所...
int[] arry = new int[100];int num = 2;int i = 0;while(arry[100] == 0){ arry[i++] = num; num += 2;}

定义一个包含100个元素的数组。拜托了各位 谢谢
include <iostream.h> void main() { int a[100],i; for(i=0;i<100;i++) { if(i%2==0) a[i]=0; else a[i]=1; } for(i=0;i<100;i++) cout<<a[i]<<' '; cout<<endl; } 其中 数组下标分别为a[0]到a[99]...

在C语言中,自定义一个数组,100个元素,对其进行随机赋值,数值范围为0...
include <stdio.h>#include <stdlib.h>#include int main(){int numbers[100], i, j, temp;srand(time(NULL));\/\/ 产生随机数for (i = 0; i < 100; i++) {numbers[i] = rand() % (255 + 1);}\/\/ 冒泡法排序for (i = 0; i < (100 - 1); i++) {for (j = 0; j...

写程序(C语言),使用指针实现打印一维数组所有元素的操作。
void main(){ int a[100],*p;int n,t;\/*你所要输入数字的个数*\/ p=a;printf("please input number n:");scanf("%d",&n);t=n;while (n--)scanf("%d",p++);\/*以此输入要输入的数字*\/ p=p-t;for(int i=0;i<t;i++){ if(i%4==0)printf("\\n");printf("%d\\t",*(...

定义一个具有100个元素的整型数组,从键盘输入数据,求这些数据的累加和及...
include<stdio.h>main(){ int n[100],sum=0,i=0; scanf("%d",&n[0]); while(n[i]!=0){sum+=n[i];i++; scanf("%d",&n[i]);}printf("sum = %lf\\n",(double)sum\/i);}如图所示，望采纳。。。

编写一个 VB.NET 程序,产生 100 个 100 以内的随机数,将他们从大到小...
Private Sub Command1_Click()Dim a(1 To 100) As Integer Dim i As Integer, j As Integer, k As Integer For i = 1 To 100 '给数组a一百个元素赋值，并换每行十个数字输出来窗体上 a(i) = Int(Rnd * 101)k = k + 1 Print Tab((k - 1) * 5); a(i);If k = 10 ...

Python创建一个一维列表,列表包含n个元素,n由键盘输入,列表元素由1...
代码如下，仅供参考：from random import randintamount = int(input("随机数数量:"))result = [randint(1,100) for i in range(amount)]print(result)输入：10 输出：[2, 65, 58, 24, 15, 12, 38, 24, 18, 79]