Question

三道编程题目（Pascal语言）

1、输入n个数，n<=100，找到其中最小的数和最大的数
2、输入10个数然后求和
3、输入十个数逆序输出

Answer 1

1，2.参照 TList.sort快速排序。
3.判断输入字符
初使化，当前加数为0，和为0
#退出
数字则将当前加数*10 + 上该数字
+则将当前加数 累计到和里面，同时设定当前加数为0
回车则将当前加数累计到和里面，同时打印和

追问

能帮我编好程序吗

Answer 2

1.2写个for循环遍历下
3先存放在数组中，逆序遍历打印

Answer 3

1）
var n,i,x,max,min:integer;
begin
read(n);
read(x); max:=x; min:=x;
for i:=2 to n do
begin
read(x);
if x>max then max:=x
else if x<min then min:=x;
end;
wrtiteln('min=',min,' max=',max);
end.

2）
var x,i,s:integer;
begin
s:=0;
for i:=1 to 10 do
begin
read(x); inc(s,x):
end;
writeln('Sum=',s);
end.

3）
var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=10 downto 1 do write(a[i],' ');
writeln;
end.