Решение должно корректно работать в 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.
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.