作业帮pascal题目随机产生10个两位随机整数,输出（1）这些随机数；（2）其中最大数、位置和最小数、位置.2：45前有分!还有一个问题：从键盘上输入一组自然数写到数组A中,并将其内容按颠倒的次
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 16:32:16
pascal题目随机产生10个两位随机整数,输出（1）这些随机数；（2）其中最大数、位置和最小数、位置.2：45前有分!还有一个问题：从键盘上输入一组自然数写到数组A中,并将其内容按颠倒的次
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
pascal题目随机产生10个两位随机整数,输出（1）这些随机数；（2）其中最大数、位置和最小数、位置.2：45前有分!还有一个问题：从键盘上输入一组自然数写到数组A中,并将其内容按颠倒的次
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]