Помогитеее, пожалуйста. Отыскать в одномерном массиве элементы, сумма которых максимальна, потом

Тут "элементы, сумма которых максимальна" имеется в виду сумма каких пар частей массива максимальна? Либо могут быть не только пары, но и тройки, четвертки и т.д.?

нет, допустим последовательность от 1-го до 5-ти и сумма цифр "4" и "5" максимальна из всех :) вроде бы так ))))

Тогда смотри мое решение

К примеру так(выводит начальный массив, наивысшую сумму, измененный массив).

program test;
uses crt;
var
  arr:array[1..10] of integer;
  i,j,max,maxn:integer;
begin
  randomize;
  clrscr;
  for i:=1 to 10 do
    begin
      arr[i]:=random(100);
      write(arr[i],' ');
    end;
  writeln;

  max:=arr[1]+arr[2];
  maxn:=2;

  for i:=1 to 10 do
    for j:=1 to 10 do
      if ilt;gt;j then
        if maxlt;arr[i]+arr[j] then
          begin
            max:=arr[i]+arr[j];
            if igt;j then maxn:=i else maxn:=j;
          end;

  writeln('max summ=',max);
 
  for i:=1 to 10 do
    begin
      if ilt;maxn then arr[i]:=0;
      write(arr[i],' ');
    end;
  readln;
end.