Консультация № 136471
12.05.2008, 13:54
0.00 руб.
0 1 1
Найти в одномерном массиве 2 элеметна, сумма которых максимальна

Обсуждение

давно
Старший Модератор
31795
6196
12.05.2008, 17:39
общий
это ответ
Здравствуйте, Cobain!

В приложении программа.
Удачи!

Приложение:
const n=15;var a:array[1..n]of integer; b,c,d,e:integer;begin {создаем и выводим массив} randomize; for b:=1 to n do begin a[b]:=random(98)+1; write(a[b]:4); end; writeln; {пока считаем максимальная сумма a[1] и a[2]} d:=1; e:=2; {ищем максимальную пару} for b:=1 to n-1 do for c:=b+1 to n do if(a[b]+a[c])>(a[d]+a[e])then begin d:=b; e:=c; end; {выводим результат} writeln((a[d]+a[e]):5,‘=‘:2,a[d]:3,‘+‘:2,a[e]:3);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа