Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
YeGoR17
28.06.2020 03:38 •
Информатика
№13 даны натуральное число n и действительные числа а1, а2, …, аn. вычислить s = (а1+ а2+ …,+ аn) + max (а1, а2, …, аn). программу по паскалю
Показать ответ
Ответ:
ШкОлА1337228
16.08.2020 01:36
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 оценок)
Популярные вопросы: Информатика
ася992
23.02.2020 03:10
Определи назначение брендумэра...
anchobaby
23.02.2022 21:45
Какое меню используют для изменения нумерации в случае удаления или добавления графических объектов...
zhezhuzina2006
05.05.2023 12:39
Напишите, , функцию, которая удаляет из переданной ей символьной строки все лишние пробелы, заменяя все повторяющиеся пробелы на один пробел....
azimjonsafu1995
04.12.2021 14:34
Определите значение переменной c после выполнения следующего фрагмента программы бейсик a=8 a=-5+(a+2) b=(-a-a)*a c=(b-a)*(2-a) (если что есть еще через программу...
gvarya05
27.09.2021 11:10
Машинную память удобно представить в виде листа в клетку. В каждой «клетке» хранится только одно из двух значений:Нужна...
bioboy
25.11.2022 18:48
A кон юнкція(77BvB)С вираз...
76676556586
03.04.2020 02:44
ОЧЕНЬ Решить задачу: Решить задачу с использованием функции Concat Описать строковую константу k=‘Кабинет’ и строковую переменную pred. Ввести с клавиатуры название...
Salahaddin001
17.05.2020 08:41
Во Сопоставьте служебные слова с записями, которые указываются после них. Укажите соответствие для всех 4 вариантов ответа: 1) условия применимости 2) последовательность...
ksushadream1
13.05.2020 10:32
Какой из названных исполнителей является самым Укажите правильный вариант ответ робот ноутбук таймер смартфон...
никитапиунов
23.07.2020 06:28
Запиши программу на языке Паскаль Для: y = 0 если x = 0x, если 0 х =1 (у:3:0)x², если x 1Запусти программу и Введи Значение: x = -10Число выведенное на экран...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.