产生10个随机整数存入数组,然后将数组中的最大值与最小值交换.

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

#include#include#includeintarr[8][8];voidmain(){srand(time(0));inti,j;for(i=0;i

PrivateSubForm_Load()Dima(10),i,x,jAsIntegerDimyAsStringFori=0To9Randomizea(i)=Int(Rnd(1)*101)x=x+a(

'本人亲测可行Private Sub Form_CLICK()    Dim arr(9) As In

PrivateSubCommand1_Click()RandomizeDima(10)AsInteger,imasasinteger,iminasinteger,Averageasintegerima

#include#include#includeintmain(){inta[15],i,j;srand(time(NULL));for(i=0;i<15;i++)a[i]=rand()%100;fo

PrivateSubCommand1_Click()RandomizeDima(1To10)Dimmax,min,avemin=50:max=20Fori=1To10a(i)=Int(Rnd*21+3

楼上好像没有看清楚题目,下面是我写的：#include#includeusingnamespacestd;intmain(){inta[10];inti;srand(time(0));for(i=0;

Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe

PrivateSubCommand1_Click()Dima(1To10)AsIntegerRandomizeFori=1To10a(i)=Int(Rnd*100)+1Printa(i);NextPr

#includevoidmain(){inta[100],i;for(i=0;i

pascal程序如下,用记数法.假如需要c语言的再通知声,varn,i,x:integer;a:array[1..1000]ofboolean;beginrandomize;readln(n);fil

OptionExplicitPrivateSubForm_Click()'定义i循环变量,imax存放最大数,imin存放最小数,数组ishuz下标为1-10DimiAsLong,imaxAsLong

dima(30)fori=1to30a(i)=int(rnd(97+3))ifisprime(a(i))=truethenprinta(i);nextifunctionisprime(xasinteg

/>很高兴为你解答答案是：#include <stdio.h> #include <stdlib.h>#include <time

两个问题：1,随机函数rand.2,冒泡算法.你在网上都能找到答案.如果你还是不想自己写,可以M我.百度聊天.

Private Sub Command1_Click()    Dim a%(0 To 19), b

a=round(100*rand(4,4));%生成0-100的随机4*4矩阵a(1,:)%输出第一行...a(:,1)%输出第一列...sum([a(1,:)a(2,1)a(2,4)a(3,1)a(

#include <stdlib.h>#include <time.h>#include <stdio.h>void mai

输出结果哪里不对可以说下不?再问：有发代码的图片，有看见么？如果看不见的话，请看私信……拜托了~再答：#include"stdio.h"#include"time.h"#include"stdlib.