Ответ:

program z1;

const n=10;

var i,j,v,m:integer;

a:array [1..n] of integer;

begin

write ('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(90)+10;

write(a[i]:3)

end;

writeln;

for i:=1 to n-1 do

begin

m:=i;

for j:=i+1 to n do if a[m] > a[j] then m:=j;

v:=a[i];

a[i]:=a[m];

a[m]:=v

end;

write ('Отсортированный массив: ');

for i:=1 to n do write(a[i]:3);

writeln;

write ('Разность между максимальным и минимальным элементами массива: ',a[n]-a[1])

end.

Объяснение:

После сортировки максимальный элемент стоит на последнем месте в массиве, а минимальный на первом