Проверьте решение. Дан целочисленный массив, вычислить S= b1+ b2^2 + . + bn^n - PascalABC.NET

[ParkerVans]

Здравствуйте! Проверьте пожалуйста решение задачи. ( Процедуры)
Дан целочисленный массив {bi}, i = 1, 2, ... , n. Вычислить S= b1+ b2^2 + ... + bn^n

program summa;
type mass=array[1..20] of integer;
var s,n,i:integer;
x:mass;
procedure sum (m:integer;y:mass; var ss:integer);
var i:integer;
begin
     ss:=y[1];//первый элемент массива ss
     for i:=1 to m do 
     ss:=ss+y[i]*y[i]//вычисление суммы 
     end;
begin
write ('Введите количество элементов массива=');
read(n);
write('Введите целых чисел - элементов массива =');
for i:=1 to n do read (x[i]);
sum (n,x,s);
write (s)
end.

[Serge_Bliznykov]

procedure sum (m:integer;y:mass; var ss:integer);
var i:integer;
begin
     ss:=0;
     for i:=1 to m do 
        ss:=ss+trunc(Power(y[i],i)); //вычисление суммы 
end;

[type_Oleg]

А лучше так:

procedure sum (m:integer;y:mass; var ss:integer);
var i,t:integer;
   
begin
     t:=1;
     ss:=0;
     for i:=1 to m do 
      begin
        t:=t*y[i];
        ss:=ss+t;
      end;
end;

[Serge_Bliznykov]

Сообщение от type_Oleg

А лучше так:

неверно.
попробуйте, например, проверить для 1,2,3

результат = 1+ 2^2 + 3^3 =1+ 4 + 27 = 32.

[ParkerVans]

Нужно чтобы степень увеличивалась с каждым очередным слагаемым. Например вводишь массив {1,2,3,4}. Первый элемент массива в данном случае (1) остается в первой степени, второй элемент массива (2) возводится во вторую степень, третий элемент массива (3) возводится в третью степень, четвертый элемент массива возводится в четвертую степень (т.е. степень увеличивается с очередным слагаемым). Вычисление суммы этого массива по калькулятору равняется 288.

[Serge_Bliznykov]

Сообщение от ParkerVans

Нужно чтобы степень увеличивалась с каждым очередным слагаемым.

я написал решение. см. пост #2

можно обойтись без функции Power, заменив её умножением в цикле.
это не сложно.

[Plague]

begin
  var b:=ReadArrInteger('Введите значения элементов массива: ',
                        ReadInteger('Введите количество элементов массива: '));
  Print(b.Select((b, i)-> Power(b, i + 1)).Sum)
end.