Составить команду из четырех лучших бегунов для участия в эстафете 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 имеет наименьшее значение


textual

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

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;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.300 из 5

Источник
Похожие ответы