1 задачка
var mas:array[1..n] of integer; i,x:integer;
begin
x:=0;
for i:=1 to n do
 begin
  readln(mas[i]);
  x:=x+abs(mas[i]);
 end;
end.

2 задачка

var mas:array[1..n] of integer; i,x:integer;
begin
x:=1;
for i:=1 to n do
 begin
  readln(mas[i]);
  x:=x*abs(mas[i]);
  end;
 end.

На всякий случай я ещё выложу правильное решение второй задачи( во вложении) либо код здесь:
const n=10;
var mas:array[1..n] of integer;
i,x:integer;
begin
  x:=1;
  for i:=1 to n do
    begin
      write('Input a[',i,']='); 
      readln(mas[i]); 
      x:=x*abs(mas[i]);
    end;
  writeln('the answer is:', x);readln;
end.

Вариант из первого решения предложенного вам не скомпилируется, потому что не объявлена константа n. Кроме того в нем нет вывода ответа и непонятно, что за числа надо вводить с клавиатуры (в моем примере оно спросит input a[1] =