作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/17 20:31:53
pascal题目
随机产生10个两位随机整数,输出(1)这些随机数;(2)其中最大数、位置和最小数、位置.
2:45前有分!还有一个问题:从键盘上输入一组自然数写到数组A中,并将其内容按颠倒的次序重放,只能使用一个数组A.
如输入 2 6 9 8 5 3 7 4 1,则数组A中数据为1 4 7 3 5 8 9 6 2 .
那好,慢慢解决吧.
4.十进制数和十六进制数转化方法如下:十进制数0—9,十六进制数仍是0—9,十进制数10—15,十六进制数分别用字母A、B、C、D、E、F表示,十六进制逢十六进一.从键盘上输入一个自然数X,将它转换成十六进制.如输入X=14,则输出E;若输入X=33,则输出21;若输入X=255,则输出FF.
5.若干个连续自然数之和是1136,输出这些连续自然数,并统计0—9各个数字出现的次数,按从多到少顺序输出各个数字出现的次数.
6.输入正整数N(N
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]