第一题：var a:array[1..10]of longint; i,maxans,minans:longint;function max(x,y:longint):longint;begin if x>y then exit(x) else exit(y);end;function min(x,y:longint):longint;begin if xy then...
3道PASCAL问题一些PASCAL问题 从键盘读入10个整数，请将这10个整数按读入的方式逆序建立一个线性链表，并求其
1个回答
相关问题
-
用FREE PASCAL 作题 从键盘上读入小写的“pascal”，利用CHR（）和ORD（）函数，输出大写的“PASC
-
Pascal问题，求大师解答，请用最简洁的方法。
-
Turbo Pascal编程问题
-
pascal的问题，不会- 。- - 。-
-
从键盘上输入10个整数,求它们的几何平均数和算术平均数
-
实现两个长整数相加：要求用链表(单链表或双向链表)实现两个任意位数的整数相加。例如，为存储100位的整数可以建立有100
-
【Pascal问题】 队列快照是指在某一时刻队列中的元素组成的有序序列.现有3个正整数元素依次入队
-
从键盘上输入10个整数,并求出这10个数中所有奇数的和与所有偶数之和要求：分别用while,do ...while
-
从键盘输入俩个整数,分别求两个整数的最大公约数和最小公倍数,并输出结果
-
由键盘输入一个10到99之间的整数将该数分解,分别输出其个位数和十位数字