В одномерном массиве, состоящем из n целых элементов, вычислить:  1) Сумму модулей

в паскале надобно сделать.

Const n=20;
var i:integer;
    sl,sg:longint;
    x:real;
    a:array[1..n] of integer;
begin
  Randomize;
  for i:=1 to n do a[i]:=random(1000)-500; // Случайные числа от -500 до 500
  sl:=0; sg:=0;
  writeln('Введите число Х');
  readln(x);
  for i:=1 to n do
    if a[i]lt;x then sl:=sl+abs(a[i]) else sg:=sg+abs(a[i]);
  writeln('Сумма наименьших: ',sl,'  Сумма великих: ',sg)
end.

Пример решения:

Введите число Х
25
Сумма наименьших: 1731  Сумма великих: 2407