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

program arrays_19;

var i, j, x, k: integer;

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

begin

write ('введите х'); read (x);

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 j<10-i+1 then if m[i, j]=x then k:=k+1;

end;

end;

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

end.