Даны натуральное число n и действительные числа а1, а2, …, аn. вычислить s = (а1+ а2+ …,+ аn) + max (а1, а2, …, аn). сделать программу в паскалях

240

269

Посмотреть ответы 2

Ответы на вопрос:

girlmarta

Информатика

4,4(32 оценок)

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.