生成10个10到80之间的随机整数存入以为数组a中,找出其中的最大数和最小数,并将两者交换位置

 我来答
惜兮E83e7
2012-05-14 · TA获得超过198个赞
知道答主
回答量:76
采纳率:0%
帮助的人:89.8万
展开全部
var a:array [1..10] of integer;
max,min,i,b,c,t:integer;
begin
randonize; {随机生成数据}
for i:=1 to 10 do a[i]:=random(71)+10; {生成10到80之间的随机整数}
max:=0; min:=81; {赋值一个任何数都不可能超过的数在min里,保证min肯定是在该数组中的数,max与之同理}
for i:=1 to 10 do if max<a[i] then begin max:=a[i]; b:=i; end; {找最大数}
for i:=1 to 10 do if min>a[i] then begin min:=a[i]; c:=i; end; {找最小数}
t:=a[b]; a[b]:=a[c]; a[c]:=t; {交换位置}
for i:=1 to 10 do write(a[i],' '); writeln; {输出}
end.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友88b5c2f
2012-05-14 · TA获得超过524个赞
知道小有建树答主
回答量:529
采纳率:33%
帮助的人:198万
展开全部
10+RND*(80-10+1)
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式