Составишь программку на языке постальА) вычислить сумму модулей частей массива X(15).

А)var
 ar:array[1..15] of integer;
 s,i:integer;
 begin;
 for i:=1 to 15 do
 begin;
 readln(ar[i]);
 s:=s+абс(ar[i]);
 end;
 write(s);
 end.
б)var
 ar:array[1..15] of integer;
 s,i:integer;
 begin;
 s:=1;
 for i:=1 to 15 do
 begin;
 readln(ar[i]);
 s:=s*abs(ar[i]);
 end;
 write(s);
 end.