// Массив из "a" заполнил псевдорандомными числами от 0 до 3 для наглядности
using System;
namespace ConsoleApp1
{
internal class Program
{
private static void Main()
{
const int numsCount = 24;
const int resCount = 10;
double[] nums = new double[numsCount];
double[] res = new double[resCount];
var rand = new Random();
for (int i = 0; i < numsCount; i++)
{
nums[i] = rand.Next(0, 4);
Console.WriteLine($"a[{i}] = {nums[i]}");
}
Console.WriteLine();
for (int i = 1; i <= resCount; i++)
{
double sum = 0;
for (int j = 0; j < numsCount; j++)
sum += Math.Pow(nums[j], i);
res[i - 1] = sum;
Console.WriteLine($"b[{i - 1}] = {sum}");
}
Console.ReadLine();
}
}
}
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.