Разработка программы поиска двух соседних элементов массива, сумма которых максимальна

[Esterlen]

Здравствуйте уважаемые пользователи форума.
Я хочу обратиться к вам за помощью, она заключается в разработке программы поиска двух соседних элементов массива, сумма которых максимальна(тема курсовой работы).
Самому сделать что то подобное мне даже близко не удалось, я очень надеюсь на вас. Ибо курсовую работу сдавать уже завтра.

[pikachu_182]

а какой язык?

[Esterlen]

Сообщение от pikachu_182

а какой язык?

delphi в среде delphi 7

[pikachu_182]

жаль, его не знаю, но могу рассказать принцип)) похожую на паскале в прошлом году делал) массив одномерный?

[BDA]

//n>1
pos:=1;
for i:=2 to n-1 do
	if a[i]+a[i+1]>a[pos]+a[pos+1] then
		pos:=i;
writeln(a[pos],' ',a[pos+1]);

[Esterlen]

Сообщение от BDA

//n>1
pos:=1;
for i:=2 to n-1 do
	if a[i]+a[i+1]>a[pos]+a[pos+1] then
		pos:=i;
writeln(a[pos],' ',a[pos+1]);

Спасибо большое, есть пару вопросов. Вот этот код нужно вставить после объявления массива?

[BDA]

Пожалуйста.

Сначала описываем переменные в разделе var
Потом считываем или заполняем случайно массив (после begin)
Потом вставляем этот код
Потом readln; (перед end)

Если не получится, то выложите, что получится.

[Esterlen]

Сообщение от BDA

Пожалуйста.

Сначала описываем переменные в разделе var
Потом считываем или заполняем случайно массив (после begin)
Потом вставляем этот код
Потом readln; (перед end)

Если не получится, то выложите, что получится.

Спасибо, щас попробую.

[Esterlen]

Сообщение от BDA

Пожалуйста.

Сначала описываем переменные в разделе var
Потом считываем или заполняем случайно массив (после begin)
Потом вставляем этот код
Потом readln; (перед end)

Если не получится, то выложите, что получится.

 procedure TForm1.Button1Click(Sender: TObject);
var A: array [0..99] of integer;
 i : integer;
begin
   ListBox1.Clear;
  randomize;
  for i:=0 to 49 do
    begin
    A[i]:=random(121)-61;
    Listbox1.Items.Add(inttostr(A[i]))
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var A:array[0..99] of integer; n,i,pos:integer;
 begin
 If listbox1.items.count=0 then showmessage ('Ìàññèâ íå ñîçäàí')
 else
 end;
 begin
 n(ОШИБКА)>1
 pos:=(ОШИБКА)1;
 for i:=2 to n-1 do
	if a[i]+a[i+1]>a[pos]+a[pos+1] then
		pos:=i;
 writeln(a[pos],' ',a[pos+1]);
 end;
end;
end.

Вот трудности, выше написал где выдает ошибку пробовал все не понимаю в чем дело. Помогайте

[BDA]

const n=100;
var A: array [0..(n-1)] of integer;

procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
  ListBox1.Clear;
  randomize;
  for i:=0 to n-1 do
    begin
    A[i]:=random(121)-61;
    Listbox1.Items.Add(inttostr(A[i]))
	end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
	i,pos:integer;
begin
 If n<2 then showmessage('Нет, или мало элементов')
 else
 begin
 pos:=0;
 for i:=1 to n-1 do
	if a[i]+a[i+1]>a[pos]+a[pos+1] then
		pos:=i;
 showmessage(inttostr(a[pos])+' '+inttostr(a[pos+1]));
 end;
end;

n и a объявлены глобально