Решение должно корректно работать в PascalABC.NET, версии не выше 2.2
Найти среднее арифметическое значение элементов, расположенных под главной диагональю матрицы.

const m=20;  var i,j,s,n: integer;    a: array[1..m,1..m] of integer;begin  write('n = ');  readln(n);  randomize;{ заполнение массива и вывод на экран}  s:=0;  for i:=1 to n do    for j:=1 to n do     begin      a[i,j]:=Random(58);      write(a[i,j]:4,' ');      if j=n then writeln;    end; { сумма элементов под главной диаг. }  s:=0;  for i:=2 to n do  for j:=1 to i-1 do    s:=s+a[i,j];  writeln('средне арифметическое:  ',s/(n*(n-1)/2):5:3);end.