подкиньте идею

[ronny137]

найдите в линейном массиве 2 элемента, сумма которых максимальна.
допустим вот массив:
1 5 7 2 9
и нужно найти сумму 7 и 9, посчитать ее и вывести?

[DoDge_VipeR]

m1:=1;m2:=2;
for i:=1 to n-1
for j:=i+1 to n do
if (a[i]+a[j])>(a[m1]+a[m2]) then begin m1:=i;m2:=j;end;
writeln(a[m1],'    ',a[m2]);

[ronny137]

доделал я программу , работает неверно

program zad5;
const n=10;

var
a: array [1..n] of integer;
j,i,m1,m2: integer;
begin
randomize;
for i:=1 to n do
a[i]:=random (10);
for i:=1 to n do
write (a[i]:4);
m1:=1;
m2:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if (a[i]+a[j])>(a[m1]+a[m2]) then begin m1:=i;m2:=j;end;
writeln;

writeln(a[m1],'    ',a[m2]);
end.

[ROMA2PVT]

чёт я незаметил там неверности.

[ronny137]

ой все верно. извините. нужно было найти эти элементы, а меня переклинило думал что нужно искать их сумму.