Дан одномерный массив, содержащий N элементов. Составьте алгоритм и программу,...

Question

Дан одномерный массив, содержащий N элементов. Составьте алгоритм и программу, выполняющие следующие действия:

упорядочение элементов массива по возрастанию;

вычисление суммы A[1] + A[2]*A[2] + A[3]*A[3] …;

Например:

N = 5;

Числа: 4,1,3,2,5

Answer 1

// PascalABC.NET 3.2, сборка 1325 от 19.10.2016
begin
  var n:=ReadInteger('n=');
  var a:=ReadArrInteger('Вводите элементы:',n);
  a.Sort;
  a.Println;
  var s:=a[0]+a[n-1];
  for var i:=1 to n-2 do s:=s+sqr(a[i]);
  Writeln('S=',s)
end.

Пример
n= 5
Вводите элементы: 4 1 3 2 5
1 2 3 4 5
S=35