free/turbo pascal 菜鸟问题

var
a,i,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
for i:=1 to 10 do
begin
read(a);
if a<min then min:=a;
if a>max then max:=a;
end;
writeln(min,' ',max);
end.

---

var
a,i,max,min:longint;
begin
max:=-maxlongint;
min:=maxlongint;
for i:=1 to 10 do
begin
read(a);
if a<min then min:=a;
if a>max then max:=a;
end;
writeln(min,' ',max);
end.

---

这就是在抄程序啊.楼主没前途无亮

---

比较BT的办法就是用if语句嵌套...
还有就是有数组读入然后排序.
输出最大和最小的.
排序方法有很多.如冒泡排序......