Составить программу нахождения максимального значения посреди попарных сумм тех частей

Составить программу нахождения максимального значения посреди попарных сумм тех частей массива длины 30, которые находятся на схожем расстоянии от его концов (т.е. 1-ый элемент складывается с последним, 2-ой с предпоследним и т.д.). Упорядочить его способом перебора. Элементы массива принадлежат отрезку [-15. 15].
(Помогите пожалуйста, очень нужно.)

Задать свой вопрос
Ника Стрельниченко
пожалуйста, вы сможете решить эту задачу, я теснее все перепробовала, я сообразила ваши замечания, извините моя ошибка надо упорядочить способом выбора
Нина
Паскаль, я не знаю что поначалу, безразницы
Лариса Штокало
PascalABC.NET
Кристина Андрушевская
От того, что Вы отсортируете массив, значение максимума не измениться.
Дима Муравлянский
Вы правы. Недоглядел, раскаиваюсь.
1 ответ
// PascalABC.NET 3.2, сборка 1346 от 25.11.2016
// Внимание! Если программка не работает, обновите её версию!

begin
  var n:=30;
  var a:=ArrRandom(n,-15,15); a.Println;
  var mx:=a[0]+a[n-1];
  for var i:=2 to (n-1) div 2 do begin
    var s:=a[i]+a[n-i-1];
    if sgt;mx then mx:=s
    end;
  Writeln('Наибольшая из сумм сходящихся пар: ',mx);
  // сортировка выбором
  var j:=n-1;
  while jgt;0 do begin
    mx:=a[0];
    var imx:=0;
    for var i:=1 to j do
      if a[i]gt;mx then begin mx:=a[i]; imx:=i end;
      a[imx]:=a[j];
      a[j]:=mx;
      j-=1
    end;
  a.Println
end.

Пример
-14 9 1 -14 -5 14 -15 -15 -1 -4 -8 -9 1 -12 -11 -3 9 -1 -9 -9 -1 -8 15 -8 5 -13 15 6 9 11
Наибольшая из сумм сходящихся пар: 19
-15 -15 -14 -14 -13 -12 -11 -9 -9 -9 -8 -8 -8 -5 -4 -3 -1 -1 -1 1 1 5 6 9 9 9 11 14 15 15

Ева Паранская
спасибо
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт