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

Question

Помогитеее, пожалуйста. Найти в одномерном массиве элементы, сумма которых максимальна, затем удалите все элементы, предшествующие тому элементу, индекс которых наибольший из двух. (в паскале)

Comments

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

---

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

---

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

Answer 1

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

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 i<>j then
        if max          begin
            max:=arr[i]+arr[j];
            if i>j then maxn:=i else maxn:=j;
          end;

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

Comments

http://pastebin.com/W7R9UikE <- Решение. местный редактор сообщений код портить любит.

---

тут условие неправильно как то записано...."if max begin".. вот посмотри, пожалуйста, в 20-ой строчке с начала....м?

---

По ссылке из комментария посмотри, местный редактор сообщений код портит постоянно