2. Построить логическую схему по формуле 3. Опред">

1.
const n=10;
var a:array[1..n] of integer;
s,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(51)-25;
 write(a[i]:4);
 end;
writeln;
s:=0;
for i:=1 to n do
 if a[i]<0 then a[i]:=-a[i];
writeln('Полученный массив:');
s:=0;
for i:=1 to n do begin
 write(a[i]:4);
 s:=s+a[i];
 end;
writeln;
writeln('s = ',s);
end.

Пример:
Исходный массив:
   3   2  16  18 -16 -20 -15  -8 -23  17
Полученный массив:
   3   2  16  18  16  20  15   8  23  17
s = 138

2.
begin
  var a:=ArrRandom(ReadInteger('n='),-25,25);
  a.Println;
  a:=a.Select(x->x<0?-x:x).ToArray;
  a.Println;
  Writeln('Сумма равна ',a.Sum);
end.

Программа работает при условии, что введённые числа целые.

#include <iostream>
#include <string>

using namespace std;

int main()
{
    string S,P;
    char c[10000] = "";
    int C,z;
    double R = 1;
    getline(cin, S);
    S+=' ';
    for(int i = 0; i<S.length(); i++)
    {
            if(S[i] != ' '){
                 if(S[i] == '-'){z = -1; i++;}
                 else z = 1;
                 C = 0;
                 while((S[i] >='0')&&(S[i] <= '9'))
                 {
                        C = C*10 + (S[i] - '0');
                        i++;
                 }
                 C = C*z;
                 R*=C;
                 itoa(C,c,10);
                 if (z == -1)
                 {
                       P+='(';
                       P+=c;
                       P+=')';
                 }
                 else P+=c;
                 P+="*";
            }
    }
    P[P.length()-1] = '=';
    int d,s;
    P+=ecvt(R,4,&d,&s);
    S = P;
    cout << S << "\n";
    system("Pause");
    return 0;
}