Форум » Обработка числовых последовательностей » Можно ли произвести подобную инициализацию? » Ответить
Можно ли произвести подобную инициализацию?
Nameless_Narrator: Добрый день. Заранее благодарю всех, кто решил помочь и уделил моему вопросу время. Задание: 54) На вход программы подаются результаты измерений, выполняемых прибором с интервалом 1 минуту. Все данные – целые числа (возможно, отрицательные). Требуется найти наибольшую сумму двух результатов измерений, выполненных с интервалом не менее, чем в 7 минут. Описание входных данных: В первой строке вводится одно целое положительное число – количество измерений N, которое может быть очень велико. Гарантируется, что N > 7. Каждая из следующих N строк содержит по одному целому числу – результат очередного измерения. Описание выходных данных: Программа должна вывести одно число - наибольшую сумму двух результатов измерений, выполненных с интервалом не менее, чем в 7 минут. Моё решение: (извиняюсь, что без пробелов. Код автоматически изменяется при отправке) var a: array[1..8] of integer; N, i, j: integer; max1, maxs: longint; begin readln(N); for i := 1 to 7 do readln(a [ i ] ); max1 := a[1]; maxs := ???; for i := 8 to N do begin readln(a[8]); if (a[1] > max1) then max1 := a[1]; if (max1 + a[8] > maxs) then maxs := max1 + a[8]; for j := 1 to 7 do a[j] := a[j+1]; end; writeln(maxs); end. // max1 - максимальное значение с левой стороны массива, maxs - максимальная сумма. Мои вопросы: 1) Как правильно произвести инициализацию максимальных значений, если входными данными могут являться отрицательные числа? 2) Правильно ли в этом случае использовать вид "longint" вместо "integer" в данном примере (т.к. в условии не сказано, что входные данные будут меньше 10000 как во многих других примерах 27-х заданий)? Имеет ли вид данных какое-то отношение к требованию решить задачу наиболее эффективно по памяти? Еще раз, благодарю всех за вашу помощь.
Ответов - 2
cabanov.alexey: Я бы написал так [pre2] for i := 1 to 8 do readln(a[i ] ); max1 := a[1];maxs := a[1] + a[8]; for i := 9 to N do begin for j := 1 to 7 do a[j] := a[j + 1]; readln(a[8]); if (a[1] > max1) then max1 := a[1]; if (max1 + a[8] > maxs) then maxs := max1 + a[8]; end;[/pre2] И далее по программе. int или longint не играет роли, главное чтобы массивов по N не было.
Nameless_Narrator: Спасибо, все работает! Я не додумался использовать последний элемент уже введеной части массива. Зацикливался на условии "не менее, чем 7 минут" и забыл, что это условие не нужно учитывать при инициализации.
полная версия страницы