tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
№13 даны натуральное
№13 даны натуральное число n и действительные числа а1, а2, …, аn. вычислить s = (а1+ а2+ …,+ аn) + max (а1, а2, …, аn). программу по паскалю
Zlata2828
3 29.08.2019 13:30
4
Ответы
Vens12
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Dark119277
18.05.2021 07:25
2. В рабочем окне программыSketchUp впишите название инструментов:...
lokosso
18.05.2021 07:25
Дано х, a- действительное число. Вычислить. : у = 2а – (х + 6) 1. Выведите соответствующие выражение формулы. 2. Составьте блок-схему для решения задачи....
9573st
11.12.2020 05:06
Делаете за меня к.р, и я скину дополнительно деньги на карту или на телефон...
milka1951
11.12.2020 05:04
ОЧЕЕЕНЬ ОТДАМ ВСЁ ЧТО ЕСТЬ...
jaz5
11.12.2020 05:04
Задание C++ (очень нужна ваша Y={sin x³+cosx , π/2 x≤π{sin(π+√x), x π...
9ky3ya
11.12.2020 05:04
2 задания информатика,составьте программу для вычисления выражения...
черныйхащ
11.12.2020 05:04
расставить последовательность...
jula1985ozpajo
02.06.2019 14:30
По данным x, y составить программу в паскале для вычисления функции z: 1) z=(min(x, y)+0,5))/(1+max^2(x, 2)z=система max(x, y), x 0 min(x, y), x =0....
Тупойшкольник0
02.06.2019 14:30
Составь и запиши двузначные числа из цифр 4,7,9...
CTpeJIa333
02.06.2019 14:30
Назовите 5 европейских государств и их столицы. зарание...
Популярные вопросы
Нужна ! лидеры , рост международной напряженности и разрядка междунар....
3
Среднее арифметическое двух чисел равно 14.одно число составляет...
1
Сколько килограммов бензина входит в бак автомобиля вместительностью...
2
Как дословно звучит кредо философов-рационалистов? а) мир материален...
2
Выделить приставку,корень,- окрасила,позолотой,облетает. подобрать...
3
Что такое соборное уложение 1649 год...
3
Іть будь ласка з завданням треба вставити слова 1. з гілок і звисали...
1
1час19мин= 2ч19мин= 3 сут. 12ч= 28ч= 30ч=...
2
Слон занимался тяжелой атлетикой штанга под 1 2 3 он поднял без...
3
На стеклянной двери написано мартышка и жираф-друзья слона.сколько...
3
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.