Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
2 / 2 / 3
Регистрация: 19.08.2013
Сообщений: 100
1

Найти наибольшую сумму двух чисел последовательности, между которыми интервал не менее заданного

12.06.2015, 19:37. Показов 1269. Ответов 4
Метки нет (Все метки)

На вход программе подаются целые числа, в первой строке задается их количество(не меньше семи), необходимо найти наибольшую сумму двух чисел между которыми интервал не менее 7.
чисел может быть много, в массив их запоминать все нельзя. Вот мой код который работает некорректно...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
const n=7;
var
  i,k,max,x,j,maxs:Integer;
  a:array[1..7] of integer;
 
begin
Readln(k);
for i:=1 to n do
 Readln(a[i]);
readln(x);
max:=a[1];
maxs:=max+x;
for i:=n+2 to k do
 begin
   readln(x) ;
   if a[i mod n]>max then max:=  a[i mod n];
   if max+x>maxs then maxs:= max+x;
    for j:=1 to n-1 do
     a[j]:=a[j+1];
     a[j]:=x
     end;
     Writeln(maxs);
     
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.06.2015, 19:37
Ответы с готовыми решениями:

Найти максимальное произведение двух чисел последовательности, расстояние между которыми не меньше заданного
На вход подается последовательность целых чисел по модулю не больше 1000. Признак конца 2*109....

Найти в серии показаний минимальное произведение двух показаний, между которыми прошло не менее 6 минут
Добрый день, задали по информатике на днях решить следующую задачу: На спутнике «Фотон»...

Найти наибольшую сумму двух чисел из массива
Нужно найти наибольшую сумму двух чисел из массива (1,2,3,4,5,6,7,8,9,10) я абсолютно не знаю с...

С помощью указателей найти наибольшую сумму непрерывной последовательности положительных чисел массива
помогите пожалуйста, что то не получилось у меня( Найти ту непрерывную последовательность...

4
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
13.06.2015, 20:34 2
если количество чисел 7, то интервал между ними не может быть равен даже 7
0
Cyborg Drone
14.06.2015, 10:08
  #3

Не по теме:

mamedovvms, написано же, не меньше 7. То есть, 7 не может быть, минимум - 8.

0
2921 / 842 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
14.06.2015, 21:14 4
Цитата Сообщение от Cyborg Drone Посмотреть сообщение
mamedovvms, написано же, не меньше 7. То есть, 7 не может быть, минимум - 8.
Не меньше семи, это значит равно семи или больше. И это по теме, так как для начала нужно разобраться с условие прежде чем приступать к решению

Добавлено через 9 минут
Я считаю, что для того, что бы задача имела смысл нужно 9 чисел, так как между первой и девятой и будет 7 чисел.
0
Модератор
8411 / 4162 / 2876
Регистрация: 17.08.2012
Сообщений: 13,269
14.06.2015, 21:24 5
Верно. Ошибся я что-то.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.06.2015, 21:24

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Вывести максимальное произведение 2 чисел последовательности, таких, чтобы между ними было не менее 6 чисел
Здрасьте! Излагаю все, как есть. На вход программе подается положительное целое число N (8 <= N...

Найти максимальную сумму двух соседних чисел последовательности
Помогите решить задачку. Нужно сделать на С++. Вот условие: Дана последовательность целых чисел...

Найти максимальную сумму двух соседних чисел последовательности.
Дана последовательность целых чисел х1, x2, ..., хn, где n ≥ 3. Найти максимальную сумму двух...

Найти сумму первых чисел последовательности произведение которых не превосходит заданного числа
Задача 1 Найти сумму первых чисел последовательности a1,a2...an, произведение которых не...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.