Вычислить число положительных элементов квадратной матрицы,находящихся над главной диагональю

program zz1;const n = 3;var i, j, k: integer;m: array[1..n,1..n] of integer;begin for i:=1 to n do begin for j:=1 to n do begin m[i, j]:=random(10)-5; // заполнение матрицы случайными числами и вывод на экран write(m[i, j]:3); end; writeln; end; for i:=1 to n do begin // проверка элементов над главной диагонали for j:=1 to n do begin if j>i then if (m[i,j]>0)and(m[i,j]<>0) then k:=k+1; end; end; write(\' количество положительных элементов выше главной диагонали = \', k); //вывод ответаend.