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

[Esterlen]

Сообщение от 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 объявлены глобально

Всё шикарно работает! Спасибо огромное!
Только один маленький нюанс, если не происходит заполнения массива, и нажать кнопку выполнения процедуры, подсчет происходит и выдает два соседних элемента массива 0 0, а надо чтобы была некая защита.

[BDA]

Пожалуйста.
Тут есть несколько способов:
Завести переменную типа boolean, и присваивать true в процедуре нажатия клавиши 1
Делать видимой кнопку2 только после нажатия 1
Делать проверку не If n<2, а listbox1.items.count<2

ПС Не злоупотребляйте излишним цитированием.

[Esterlen]

Всё круто спасибо!
Не подскажешь где можно по коду сделать схему данных? Там программа какая нибудь или сайт?

[BDA]

С помощью FCEditor. Он есть на рутрекере.