Дана матрица размерностью 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]i) then min:=a[i, j];

end;

for i:=1 to n do

for j:=1 to n do

if i
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.