const n=4; m=5;
var a : array[1..n,1..m] of integer; //описывается массив
    sum,i,j : integer;
begin
Randomize; //инициализируется датчик случайных чисел (ДСЧ)
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
   a[i,j]:=random(20)-10; //с помощью ДСЧ задаются элементы массива, диапазон элементов от -10 до 10
   write(a[i,j]:4);     // элементы выводятся на экран
  end;
  writeln;
  end; 
sum:=0;
for i:=1 to n do 
  for j:=1 to m do
   if a[i,j]<0 then sum:=sum+a[i,j]; //вычисляется сумма
writeln('sum = ',sum); 
end.