Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
денисдениска
11.08.2022 21:08 •
Информатика
Создать массив a(15). найти max среди сумм пар соседних элементов a[1]+a[2], a[2]+a[3] и т.д.
Показать ответ
Ответ:
masha1195
21.06.2020 14:59
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Caflen
24.06.2022 02:38
Сколько из чисел С, записанных в двоичной системе счисления, удовлетворяет неравенству 221(8) С 95(16)? 1) 10010100(2); 2) 10010110(2); 3) 10010011(2); 4) 10001100(2)....
SamSnOw4356
29.05.2021 04:40
Что будет выведено на экран после выполнения программы. Реши табличным (очень важно...
Раисат432178
07.08.2020 22:03
Для какого из указанных наборов логически величин A, B и C истинно логическое выражение - (A V B) V (B (перевернутая V) A)...
Dinka1597
30.04.2020 17:05
Каким будет результат выполнения программы? var i:integer; begin i:=1; while i =10 do begin i:=i+10 mod 3; end; writeln( i= ,i); end. (В ответ запишите только число)...
darinaggg
26.07.2021 18:58
Укажите, значение переменной N после выполнения данного фрагмента программы: N:=5; WHILE N 10 DO N:=N+5;...
staskostenko1
19.10.2022 00:00
The woman ... I love most of all is my mother. that whose Do you know the film starts? when why The pen ... you took is mine. who which The city I am from is my native city....
katya100507
19.10.2022 00:00
Как гусеница превратилась в бабочку восстанови последовательность событий...
alina20332
07.11.2020 05:47
Твiр роздум чому діти повинні не лише навчатися а й допомагать батькам. !...
Dima890438
18.03.2021 10:49
3-тапсырма. Сипаттап айт. Устно опишите картинки используя данные слова.А. «Дәмді», «тұщы», «терең» деген сөздерді пайдаланып,өзенді сипатта.Ә, «Лас», «арамшөп», «айнала» дегенсөздерді...
таня2023
01.04.2020 22:01
маршрут: Вест-Индия и Мехико: укажите между ними: страны природные зоны, рельеф, климат внутренние воды, растительный и животный мир, занятость население....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.