Дана матрица размерностью nxn найти дана матрица размерностью nxn найти минимальный элемент среди элементов расположенных над главной диагональю матрицы. найти квадрат разности среди арифметических значений элементов матрицы ,находящихся ниже и выше главной диагонали

Const n=3; var a: array[1..n,1..n] of integer; i,j,min,s: integer; upsr,downsr,k: real; begin for i: =1 to n do for j: =1 to n do a[i,j]: =random(10); for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 5); writeln; end; min: =a[1,1]; s: =0; for i: =1 to n do for j: =1 to n do begin if (a[i,j]< min) and (j> i) then min: =a[i,j]; end; for i: =1 to n do for j: =1 to n do if i< j then  s: =s+a[i,j];   upsr: =s/((sqr(n)-n)/2); s: =0; for i: =1 to n do for j: =1 to n do if i> j then  s: =s+a[i,j]; downsr: =s/((sqr(n)-n)/2); k: =sqr(downsr-upsr); writeln('минимальный элемент выше главной диагонали  ',min); writeln('среднее  арифметическое элементов  выше главной диагонали  ',upsr); writeln('среднее  арифметическое элементов ниже  главной диагонали  ',downsr); writeln('квадрат разности  средних арифметических значений элементов матрицы  ',k); end.

712₈ = 7·8²+1·8¹+2·1 = 458₁₀