Решение должно корректно работать в PascalABC.NET, версии не выше 2.2 Найти среднее...

Question

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

Answer 1

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.