Question

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

Answer 1

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.

Answer 2

10+RND*(80-10+1)