Дан

двумерный массив a,

размером (n n)

(или квадратная матрица а). Найти

количество элементов, равных заданному

числу х и расположенных в верхней

треугольной матрице, расположенной

выше побочной диагонали, исключая саму

побочную диагональ. на паскале надо ...

Program chik;

var n, i, k, j:integer;

a:array[1 ... 100,1 ... 100]of real;

x:real;

begin

readln (n) ;

for i:=1 to n do

for j:=1 to n do

read (a[i, j]) ;

writeln ('Введите x') ;

readln (x) ;

k:=0;

for i:=1 to n do

for j:=1 to n do

if (a[i, j]=x) and (i+j<=n) then k:=k+1;

writeln (k) ;

end.