Максимум суммы 2 элементов

[Siluet]

здасьте.. мне надо найти максимум суммы двух элементов..
код слегка странноватый

procedure TForm1.Button3Click(Sender: TObject);
var p,q,pr,ch,code,i,max,max1,max2:integer; a:array[1..100] of integer;
    c,st:string;
begin  edit2.Text:=Edit2.Text+' ';  label7.Show;
p:=1; i:=0;
st:=edit2.Text;  max:=-maxINT;max1:=-maxINT;

{обработка Edit2}
repeat
pr:=pos(' ',st);
c:=copy(st,1,pr-1);
delete(st,1,pr);
val(c,ch,code);
i:=i+1;q:=i;
a[i]:=ch;
until st='';

{Нахождение максимума}
for i:=1 to q do begin
if a[i]>max then max:=a[i];end;

{Нахождение второго максимума}
for i:=1 to q do begin
if (a[i]>max1) and (a[i]<max) then max2:=a[i]; end;
max2:=max+max2;
label7.Caption:=label7.Caption+IntToStr(max2);
end;

[TwiX]

Каких элементов?
Двух элементов массива?

var
 i,n,tmp:integer;
 maximum:integer;
begin
 for i:=1 to 100-1 do //100 - кол-во элементов в массиве
  for n:=1 to 100-i do
   if ar[n]<ar[n+1] then
   begin
    tmp:=ar[n];
    ar[n]:=ar[n+1];
    ar[n+1]:=tmp;
   end;
 maximum:=ar[1]+ar[2];
end;

С сортировкой красивей)

[TwiX]

Или просто:

var
 m1, m2:integer;
 i:integer;

begin
 m1:=ar[1];
 m2:=ar[2];
 for i:=3 to 100 do
 begin
  if m1>m2 then
  begin
   if ar[i]>m2 then m2:=ar[i];
  end
  else if ar[i]>m1 then m1:=ar[i];
 end;
 maximumOf2:=m1+m2;
end;

[Siluet]

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

Или просто:

var
 m1, m2:integer;
 i:integer;

begin
 m1:=ar[1];
 m2:=ar[2];
 for i:=3 to 100 do
 begin
  if m1>m2 then
  begin
   if ar[i]>m2 then m2:=ar[i];
  end
  else if ar[i]>m1 then m1:=ar[i];
 end;
 maximumOf2:=m1+m2;
end;

чтото неправильно работает

[Siluet]

вот смотрите:
допустим вот массив: 2 4 8 6 2 9 2 3 4 8 1
два максимальных числа 9 и 8
вот необходимо чтобы программа эти 2 числа нашла..

[TwiX]

Я там знак перепутал: вместо < поставил >.
Теперь поправил.
Максимальные элементы в первых двух элементах массива.

[Siluet]

оо.. работает! спасибо большое )

[Siluet]

а вот на делфи почему то не определяет

var q,pr,ch,code,i,m1,m2,maximum,kol:integer; ar:array[1..100] of integer;
    c,st:string;
begin  edit2.Text:=Edit2.Text+' ';  label7.Show;
p:=1; i:=0;
st:=edit2.Text;
kol:=length(st);
repeat
pr:=pos(' ',st);
c:=copy(st,1,pr-1);
delete(st,1,pr);
val(c,ch,code);
i:=i+1;q:=i;
ar[i]:=ch;
until st='';

 m1:=ar[1];
 m2:=ar[2];
 for i:=3 to kol do begin
  if m1>m2 then begin
   if ar[i]>m2 then m2:=ar[i];
  end
  else if ar[i]>m1 then m1:=ar[i];
 end;
maximum:=m1+m2;
label7.Caption:=label7.Caption+IntToStr(maximum);
end;

[TwiX]

Я на делфи и пробовал)

[Siluet]

посмотри код
может ошибку найдеш..