Var a: array[1..100000] of integer; i,max,n: integer; begin readln(n); for i: = 1 to n do read(a[i]); max: =a[1]+a[n]; for i: = 2 to n div 2 do if max < a[i] + a[n-i] then max: = a[i] + a[n-i]; writeln(max); end. пример 6 1 2 3 3 2 1 6
Преобразование документов в формат PDF, Djvu или PostScript.Сохранение нескольких документов в один.Преобразование документов в графические файлы, например, в JPEG или TIFF, для представления в универсальном, платформо-независимом формате.Отправка документов на сервер факсимильных сообщений.Добавление возможностей, которые не поддерживает принтер, таких как:печать нескольких страниц на одной без бордюров;печать на бланках;водяные знаки, и другое.Удалённая печать документов через Интернет.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Даны действительные числа а1, а2, а3, … аn. найти max {а1+аn; а2+аn-1; … аk+аk+1}. язык паскаль