Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
АпаснаяЯ
30.12.2020 23:34 •
Информатика
Дана последовательность из n чисел.определить сумму трех наибольших чисел
Показать ответ
Ответ:
straza982
25.08.2020 22:04
Begin
n1:=a[1]; n2:=n1; n3:=n2;
for i:=2 to n do
if (a[i]>n1) then begin
n3:=n2; n2:=n1; n1:=a[i]
end;
writeln(n1+n2+n3)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
MiniCreeper55
18.05.2023 09:12
По рисунку запиши программу движения робота по линии в текстовом виде 1. 2. 3. 4. 5....
Vlada0904
20.11.2021 05:25
Для записи текста использовалась 32-символьный алфавит. Каждая страница содержит 100 строк по 50 символов в строке. Какой обьем информации в байтах и Кбайтах содержат 5 страниц...
Радькова32
05.06.2020 16:11
Какая у меня помилка >...
Zarinaoo
10.04.2020 08:58
Как это решается по информатике , надо именно кружками это показать ....
LilGirl1
14.02.2021 19:01
Ребят не могу понять где моя ошибка...
anastasiastrel2
13.07.2021 02:18
Найдите в приведённом ниже списке два факта, связанные с княжением Ивана Калиты, и запишите цифры, под которыми они указаны. 1) принятие первого общерусского Судебника 2)...
annalol00
13.07.2021 02:18
В этих источниках нифига нет, только легенды у вас какая вода в шайтанколь, пресная или солёная?...
Саша12811
13.07.2021 02:18
1. Берілген өрнектердің мәнін есептеңдер:1) 5 - 3,5 + 0,25 - 2;2) (0,25 +3121): = 0,09 +0,78 00 - 6;3) 11: (0,15/1600 – 0,29/400) – 55;4) - 134 0,16 ) : 25 – 2.2. 1) а =...
marigol0220
12.03.2020 11:31
Қалада ғарыш туралы фильм жүріп жатыр. Кинотеатр касса-сында бір күнде 4 000 билет сатылды. Оның таңертеңгісеансына 350 билет, ал күндізгі сеансына таңертеңге қараған-да...
батуми1
16.01.2021 03:31
Перевести текст и ответить на во...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n1:=a[1]; n2:=n1; n3:=n2;
for i:=2 to n do
if (a[i]>n1) then begin
n3:=n2; n2:=n1; n1:=a[i]
end;
writeln(n1+n2+n3)
end.