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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.