给QB什么的也行，给我做三道题。
1、随机生成100个数。求其中低于平均分的是哪几个数，值分别是多少。
2、随机生成100个数，求其中偶数的个数
3、随机生成10个数，删除其中最高最低数
大神们求解，我会兑现诺言的，做出来的留下QQ号码

求解

来人呐

哇哈。。。
水题还有QB。。。

var
a:array[1..10000] of longint;
i,sum:longint;
ave:real;
begin
randomize;
for i:=1 to 100 do begin
a[i]:=random(maxint)+1;
sum:=sum+a[i];
end;
ave:=sum/100;
for i:=1 to 100 do
if a[i]<ave then writeln(i,' ',a[i]);//如果这个数小于平均数，输出序号和值
end.

var
x,total,i:longint;
begin
randomize;
for i:=1 to 100 do begin
x:=random(maxint)+1;
if x mod 2=0 then total:=total+1;//如果被2除余数为0，也就是能被2整除，计数器+1
end;
writeln('Total=',total);
end.

第三题有些题意不清，删除最高最低数，然后输出剩下的8个数么

话说随机生成数字我也不会啊。。。看来我要好好学习了。。

第三题稍微等一会儿哦

你们排序教过吗

var
a:array[1..10] of longint;
i,j,t:longint;
begin
randomize;
for i:=1 to 10 do a[i]:=random(maxint)+1;
for i:=1 to 9 do
for j:=9 downto i do
if a[j]>a[j+1] then begin
t:=a[j];a[j]:=a[j+1];a[j+1]:=t;
end;//冒泡排序
for i:=2 to 9 do write(a[i],' ');
writeln;
end.

话说。。。这随机出的100个数。。应该是输入吧。。。。哪有自己random的。。。这样就没法测程序是否正确了、、、
话说。。。会排序都好做。。。
1. 可以开[0..110,1..2] 的数组，存num{数值}和id{位置}，求和及平均值，排序，遍历找出比平均值大的序号{i} 输出 1 to i-1 的 id 和 num ；
2.直接O（1） odd（）
3.开数组记录数值及相应的boolean{初值设成true}，遍历找到最大值，最小值序号，设成false
输出true的数
好吧。。。算法不一定最减。。。也该够了吧。。。。

排序算法传送门 https://tieba.baidu.com/p/2153678890

另：如果是照15L所说，请将所有的随机数生成内容改为读入

哎呀，一不小心似乎搞错了。。。
希望楼主来没睡。。。

var
a:array[1..10000] of longint;
i,max,maxx,min,minx:longint;
begin
randomize;min:=maxint;max:=-maxint;
for i:=1 to 10 do a[i]:=random(maxint)+1;
for i:=1 to 10 do begin
if a[i]<min then begin min:=a[i];minx:=i;end;
if a[i]>max then begin max:=a[i];maxx:=i;end;
end;
for i:=1 to 10 do if (i<>minx)and(i<>maxx) then write(a[i],' ');
end.
这才是正确的。。。
我错了，愧对楼主一片感激

题意是“剩下的8个数据不排序”错看成“剩下的8个数据排序”了。
真心诚意地向楼主说一声抱歉

楼主还在么？

@pp290777182

第二题好简单= =