Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
brll1bellrf43
25.07.2021 20:59 •
Информатика
Даны натуральное число n и действительные числа а1, а2, …, аn. вычислить s = (а1+ а2+ …,+ аn) + max (а1, а2, …, аn). сделать программу в паскалях
Показать ответ
Ответ:
VKaurovau
06.10.2020 03:58
Var a: array of integer;
n, sum, max: integer;
begin
sum:=0;
write('Введите натуральное число n: ');
readln(n);
a := new integer[n];
write('Введите действительные числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Сумма равна: ');
for var i:=0 to a.Length-1 do
sum:=sum+a[i];
writeln(sum);
write('Максимальный элемент равен: ');
max := a[0];
for var i:=0 to a.Length-1 do
if a[i]>max then
begin
max := a[i];
end;
writeln(max);
write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
sum:=sum+max;
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Мурмик
11.12.2020 01:32
Отвечаем на вопросы 1. Что означает ввод данных?2. Что означает вывод данных?3. Какими буквами обозначаются переменные?...
elenakovaleskau
09.06.2022 07:12
Подсчитайте информационный объем сообщения ИНФОРМАЦИЯ в битах. если 1 символ равен одному байту то чему равно количество байтов в сообщении ИНФОРМАЦИЯ С ОБЪЯСНЕНИЕМ...
mansurislamov
17.11.2022 10:32
(а. кабанов) сколько натуральных чисел расположено в интервале 40(8степень) ≤ x ≤ e6(16степень)...
СофаСофачка
30.10.2020 16:01
Які переваги для навчального процесу надає локальна мережа навчального закладу?...
Совершенная14
08.04.2020 19:41
Напишите программу (на которая моделирует полет мяча при: r=33 мм, m=150 г, vo=20 м/с, delta=0,1с.а) определите время полета, максимальную высоту подъема мяча и скорость в...
Wely
20.10.2021 01:19
Free-time activities Remember what adjectives were used in the texts to show how children feel. Mark them.Favourite, dear, amazing, black, big, excited, delighted,...
NekitGame225
10.09.2021 02:40
Составь кластер: Методы географической науки...
DizzyWarriorr
16.09.2022 23:43
повествовательные и побудительные предложения. Рассказал расскажи, объяснила-объясни, отремонтировали-отремонтируй, не опоздал - не опоздай, поливала – поливай, привыкла -...
EvdokiaNi
04.04.2021 03:10
Төмендегі сандарды ықшамдап жазыңдар 3600;25000;200...
bachko2012
10.02.2021 00:20
Тұз ерітіндісі әр түрлі екі заттан тұз бен судан тұрадыма...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n, sum, max: integer;
begin
sum:=0;
write('Введите натуральное число n: ');
readln(n);
a := new integer[n];
write('Введите действительные числа: ');
for var i:=0 to a.Length-1 do
read(a[i] );
write('Сумма равна: ');
for var i:=0 to a.Length-1 do
sum:=sum+a[i];
writeln(sum);
write('Максимальный элемент равен: ');
max := a[0];
for var i:=0 to a.Length-1 do
if a[i]>max then
begin
max := a[i];
end;
writeln(max);
write('S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn) = ');
sum:=sum+max;
write(sum);
end.