Составить команду из четырех лучших бегунов для участия в эстафете 4 х 100 м - Pascal ABC

Формулировка задачи:

Даны натуральные числа n, a1 ..., аn (п >= 4). Числа a1 ..., аn — это измеренные в сотых долях секунды результаты п спортсменов в беге на 100 м. Составить команду из четырех лучших бегунов для участия в эстафете 4 х 100 м, т. е. указать одну из четверок натуральных чисел i, j, k, m, для которой 1 <= i < j < k < m <= 4 и сумма аi + аj + ak+ am имеет наименьшее значение

Решение задачи: «Составить команду из четырех лучших бегунов для участия в эстафете 4 х 100 м»

Листинг программы

mn:=a[1]+a[2]+a[3]+a[4]; //примем за минимум сумму результатов 1,2,3 и 4 бегунов
imn:=1;jmn:=2;kmn:=3;mm:=4;
for i:=1 to n-3 do //проверим все возможные четверки
for j:=i+1 to n-2 do
for k:=j+1 to n-1 do
for m:=k+1 to n do
if a[i]+a[j]+a[k]+a[m]<mn then//если сумма которых ментше
 begin
  mn:=a[i]+a[j]+a[k]+a[m];//это минимум
  imn:=i;  //их номепа
  jmn:=j;
  kmn:=k;
  mm:=m;
 end;

Объяснение кода листинга программы

В первой строке кода переменной mn присваивается значение суммы результатов четырех лучших бегунов (a[1], a[2], a[3], a[4]).
Далее определяются четыре переменные imn, jmn, kmn, mm, которые будут использоваться для хранения номеров бегунов с минимальной суммой.
Затем идет цикл for, который проверяет все возможные четверки бегунов.
Внутри цикла for идут еще четыре вложенных цикла for, которые проверяют все возможные комбинации четырех бегунов.
Если сумма результатов данной четверки меньше значения переменной mn, то переменная mn обновляется и присваиваются номера этой четверке бегунов переменной imn, jmn, kmn, mm соответственно.
После окончания всех циклов, в переменной mn будет храниться минимальная сумма результатов четырех лучших бегунов, а в переменных imn, jmn, kmn, mm - номера этих бегунов.