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