Вопрос по информатике:
Составить программу нахождения максимального значения среди попарных сумм тех элементов массива длины 30, которые находятся на одинаковом расстоянии от его концов (т.е. первый элемент складывается с последним, второй с предпоследним и т.д.). Упорядочить его методом перебора. Элементы массива принадлежат отрезку [-15. 15].
(Помогите пожалуйста, очень нужно.)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.11.2015 20:36
- Информатика
- remove_red_eye 15706
- thumb_up 42
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите её версию!
begin
var n:=30;
var a:=ArrRandom(n,-15,15); a.Println;
var mx:=a[0]+a[n-1];
for var i:=2 to (n-1) div 2 do begin
var s:=a[i]+a[n-i-1];
if s>mx then mx:=s
end;
Writeln('Максимальная из сумм сходящихся пар: ',mx);
// сортировка выбором
var j:=n-1;
while j>0 do begin
mx:=a[0];
var imx:=0;
for var i:=1 to j do
if a[i]>mx then begin mx:=a[i]; imx:=i end;
a[imx]:=a[j];
a[j]:=mx;
j-=1
end;
a.Println
end.
Пример
-14 9 1 -14 -5 14 -15 -15 -1 -4 -8 -9 1 -12 -11 -3 9 -1 -9 -9 -1 -8 15 -8 5 -13 15 6 9 11
Максимальная из сумм сходящихся пар: 19
-15 -15 -14 -14 -13 -12 -11 -9 -9 -9 -8 -8 -8 -5 -4 -3 -1 -1 -1 1 1 5 6 9 9 9 11 14 15 15
- 19.11.2015 23:13
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.