Question

pascal题目随机产生10个两位随机整数,输出（1）这些随机数；（2）其中最大数、位置和最小数、位置.2：45前有分!

Answer 1

program random1;

var s,a,i,max,min,tmax,tmin:integer;

p:array[1..10] of integer;

begin

randomize;

s:=1;

while s=10 and amax

then begin tmax:=i; max:=p[i]; end;

writeln(max,tmax);(最大数和位置)

for i:=1 to 10 do

if p[i]