Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным...

Question

Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.<br>

Answer 1

Сделано через динамический массив!
var a:array of Integer;    n,i,max,min:Integer;
begin  
Readln(n);  
SetLength(a,n); 
 for i:=0 to Length(a) do 
  readln(a[i]); 
 max:=a[0]; 
 for i:=0 to Length(a) do  
 if a[i]>max then  
  max:=a[i];  
min:=a[0];  
for i:=0 to Length(a) do 
 if a[i]   min:=a[i]; 
Writeln; 
 Writeln(max-min); 
readln;
end