pascal编程游戏_最矮和最高的差距，pascal编程
描述 Description
同学们按身高从低到高一条长龙进行排队。排着排着，同学们突然很想知道最矮的与最高的到底差多少厘米。于是，同学们让最矮的与最高的同学站在一起比一比。
输入格式 Input Format
第一行一个整数n，表明有几个同学的身高信息。(2<=n<=100)
第二行是n个整数，表明n个同学的身高信息。
输出格式 Output Format
一个整数，表示最矮的与最高的同学身高相差多少厘米。
样例输入
7
130 131 131 133 134 134 136
样例输出
6
最佳答案
var
d:array [1..100] of integer;
i,n,h:integer;
begin
readln(n);
for i:=1 to n do
read(d[i]);
h:=d[n]-d[1];
writeln(h)
end.
其他回答
其它网友回答：
var
其它网友回答：
max,min,n,i,x:longint;
其它网友回答：
begin
其它网友回答：
readln(n);
其它网友回答：
max:=-maxlongint;
其它网友回答：
min:=maxlongint;
其它网友回答：
for i:=1 to n do
其它网友回答：
begin
其它网友回答：
read(x);
其它网友回答：
if x<min then
其它网友回答：
min:=x;
其它网友回答：
if x>max then
其它网友回答：
max:=x;
其它网友回答：
end;
其它网友回答：
writeln(max-min);
其它网友回答：
end.
其它网友回答：
