Дан двумерный массив a, размером (n'n) (или квадратная матрица а). Найти среднее арифметическое положительных элементов, верхней треугольной матрицы, расположенной выше главной диагонали,

program arrays_19;

var i, j, x, k: integer;

m: array[1 ... 10,1 ... 10] of integer;

begin

for i:=1 to 10 do begin

for j:=1 to 10 do begin

m[i, j]:=random (10); / /заполнение массива случайными числами и вывод на экран

write (m[i, j]:3);

end;

writeln;

end;

for i:=1 to 10 do begin / / проверка элементов выше побочной диагонали

for j:=1 to 10 do begin

if j0 then begin k:=k+1; x:=x+m[i, j]; end;

end;

end;

write (' среднее арифметическое положительных элементов выше побочной диагонали = ', x/k); / /вывод ответа

end.