uses crt;
var
    i, n: longint;
    a: array[0..1000000] of longint;
    min, max: longint;
begin
    clrscr;
    write('Nhap so nguyen duong n = ');
    readln(n);
    
    write('Nhap day so nguyen: ');
    for i:=1 to n do read(a[i]);
    
    max:=a[1]; min:=a[1];
    for i:=2 to n do begin
        if a[i] > max then max:=a[i];
        if a[i] < min then min:=a[i];
    end;
    writeln('k = ', max - min);
readln;
end.

program bt;
uses crt;
var A:array[0..100000] of longint;
min,max,k,n,i: longint;
begin
write('N = ');read(n);
for i:=1 to n do
read(A[i]);
max:=A[1];min:=A[1];
for i:=1 to n do
begin
if A[i] > max then max:=A[i];
if A[i] < min then min:=A[i];
end;
k:=abs(min - max);
write('khoang cach = ', k);
readln;
end.