Определить во сколько раз максимальный элемент массива превышает минимальный

[danil663]

Дан одномерный целочисленный массив X размерности 20, xi принадлежит [-14;14]. Определить во сколько раз максимальный элемент массива превышает минимальный.Выполнить сортировку массива по убыванию.

Снова задача, если будет желание, решите пожалуйста.

[ViktorR]

Так думаю, что сортировка массива затруднений не вызывает.
Тут много примеров изложено, да и во всех книжках про то написано.
А вот после сортировки надо просто поделить первый элемент массива на 20-ый. Поскольку числа в задаче могут быть отрицательными, то результат деления надо сделать положительным:

 k := abs(a[1] / a[20]);

Как-то так, ...

[Mad_Cat]

const n=20;
var a:array[1..20] of integer;
i,j,t:integer;
begin
     Randomize;
     writeln;
     for i:=1 to n do
         begin
              a[i]:=random(29)-14;
              write(a[i]:4);
         end;
     for i:=n-1 downto 1 do
         for j:=1 to i do
             if a[j]<a[j+1] then
                begin
                     t:= a[j];
                     a[j]:= a[j+1];
                     a[j+1]:= t;
                end;
     writeln;
     for i:=1 to n do
         write(a[i]:4);
     writeln;
     if a[n]<>0 then writeln(a[1]/a[n]:6:3)
end.

4 -19 -13 -9 -17 -14 -20 -1 -6 6 -16 8 -4 -20 -14 6 -19 1 -1 4
8 6 6 4 4 1 -1 -1 -4 -6 -9 -13 -14 -14 -16 -17 -19 -19 -20 -20
-0.400