Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Daniilyushka
15.07.2021 22:32 •
Информатика
Дано целое число n (> 1) и набор из n чисел. найти максимальную сумму двух соседних чисел из данного набора.10 минут
Показать ответ
Ответ:
ninachka1977
14.07.2020 21:49
Uses crt;
const n = 5;
var a:array[1..n] of integer;
i,max:integer;
begin
for i:=1 to n do
readln(a[i]);
max = a[1]+a[2];
for i:=1 to n-1 do
if (a[i]+a[i+1] > max) then
max:= a[i]+a[i+1];
writeln(max);
end.
0,0
(0 оценок)
Ответ:
MrFoksSuper
14.07.2020 21:49
Готово
0,0
(0 оценок)
Популярные вопросы: Информатика
Annuta88
28.08.2022 01:24
What are exanples of storage devices? 1. hard drive, flash drive 2.flash drive, ram 3.motherboard, usb, hard disk мне нужен сразу ответ, без обьяснений,...
razdor1996Rqzdor
31.01.2020 09:46
1дано: k=800*600,i=32 бит, найти iс дано и решением . ! ...
Nastya6376
06.04.2022 07:38
Вставь пропущенные слова. в компьютерной системе есть возможность подключать новые устройства , , заменять старые на устройство на неисправные - на...
ruslan2003185
16.03.2022 17:06
1. файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. определите время в секундах, за которое можно передать через то же самое соединение файл размером 8 кбайт....
Smort
29.11.2022 15:41
Какое количество информации несёт сообщение о том, что встреча назначена на пятницу ...
DashaL04
25.03.2023 01:03
Какое количество информации несет сообщение о том, что встреча назначена на пятницу?...
grishchenkova0
27.03.2023 07:35
.Ниже приведена схема последовательных реакций. Определи, катионы какого металла являются катализатором Ce+4 Mn+2 Mn+3 Tl+...
самая29
08.04.2022 00:02
Бәрілген тізімнен сұрақтың дұрыс жауабын анықтаңыз...
lol955
08.04.2022 00:02
Укажите поле, к которому желательно применить пользовательский формат...
15082
21.09.2020 17:39
Власна швидкість човна дорівнює 8 м/с, а швидкість течії річки 2 м/с. Човен вирушив від пристані Ai, діставшись пристані Б, одразу повернув назад. Яку середню шляхову швидкість човна...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 5;
var a:array[1..n] of integer;
i,max:integer;
begin
for i:=1 to n do
readln(a[i]);
max = a[1]+a[2];
for i:=1 to n-1 do
if (a[i]+a[i+1] > max) then
max:= a[i]+a[i+1];
writeln(max);
end.