Задача №13
Даны натуральное число n и действительные числа А1, А2, …, Аn. Вычислить
S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn).
программу по паскалю срочно
Даны натуральное число n и действительные числа А1, А2, …, Аn. Вычислить
S = (А1+ А2+ …,+ Аn) + max (А1, А2, …, Аn).
программу по паскалю срочно
More Questions From This User See All
Answers & Comments
Verified answer
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.