用pascal语言的一些题目,1,n头奶牛选老大,谁的产量高谁就是老大,请根据各自产量找出老大,报出它的编号.产量值将按编号顺序(1,2,3.)输入.如果两头奶牛产量相同,则编号小的为老大.样例输

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 09:39:44
用pascal语言的一些题目,1,n头奶牛选老大,谁的产量高谁就是老大,请根据各自产量找出老大,报出它的编号.产量值将按编号顺序(1,2,3.)输入.如果两头奶牛产量相同,则编号小的为老大.样例输

用pascal语言的一些题目,1,n头奶牛选老大,谁的产量高谁就是老大,请根据各自产量找出老大,报出它的编号.产量值将按编号顺序(1,2,3.)输入.如果两头奶牛产量相同,则编号小的为老大.样例输
用pascal语言的一些题目,
1,n头奶牛选老大,谁的产量高谁就是老大,请根据各自产量找出老大,报出它的编号.产量值将按编号顺序(1,2,3.)输入.如果两头奶牛产量相同,则编号小的为老大.
样例输入
3
45 67 23
样例输出
2
2,如果一个二进制数中1的个数比0的个数多,我们称这样的数为A类数,反之称为B类数(包含相等的情况),那么49这个数显然就是个B类数,你能编写一个程序来判断一下输入的十进制数是A类还是B类吗?
样例输入
49
样例输出
B
提示
49转换成二进制数为110001,0有3个,1有3个,所以为B类数
3,打印三角形.
样例输入
4
样例输出
*
**
***
****
呵呵,会几道做几道,越快越好!3Q了!

用pascal语言的一些题目,1,n头奶牛选老大,谁的产量高谁就是老大,请根据各自产量找出老大,报出它的编号.产量值将按编号顺序(1,2,3.)输入.如果两头奶牛产量相同,则编号小的为老大.样例输
第一题:var
a,b:array[1..1000]of longint;
i,n:longint;
procedure kp(l,r:longint);
var
i,j,mid,t:longint;
begin
i:=l;j:=r;mid:=a[(l+r)div 2];
repeat
while a[i]mid do dec(j);
if ij;
if i